If
InStr(CurrentProject.Connection.ConnectionString,
"Jet
OLEDB:Database
Locking
Mode=0")
>
0
Then
MsgBox "本数据库已经用独占方式打开"
Else
MsgBox "本数据库未用独占方式打开"
End If
MsgBox "本数据库已经用独占方式打开"
Else
MsgBox "本数据库未用独占方式打开"
End If