vb6 – 防止打开VB应用程序的多个实例

我正在研究连接到MS Access数据库的VB6应用程序,所以我不想让用户打开我的应用程序的多个实例,因为这会产生冲突和改变连接数据库.此外,如果用户尝试打开另一个实例,则必须关注当前运行的实例.我怎样才能达到这个目的？提前致谢………. ：-) 使用App.PrevInstance：

'this code would be in a bas module for start up.'
Private Sub main()
    'Check for previous instance and exit if found.'

    Dim rc As Long

    If App.PrevInstance Then
        rc = MsgBox("Application is already running", vbCritical, App.Title)
        Exit Sub
    Else
        frmMain.Show
    End If

End Sub