防止同一个客户端文件被重复打开的又一种方法

Private Sub Form_Open(Cancel As Integer)
    Dim rst As Object    'ADODB.Recordset
    Dim intCounter As Integer

    Set rst = CurrentProject.Connection.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
    Do Until rst.EOF
        intCounter = intCounter + 1
        rst.MoveNext
    Loop
    Set rst = Nothing
    If intCounter > 1 Then
        MsgBox "不允许重复运行程序！", vbExclamation   
        Cancel = True
        Quit
    End If   
End Sub