如何判断是否以独占方式打开当前数据库？

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