Public gConnect As New ADODB.Connection
Public gOK As Boolean
Sub Main()
If App.PrevInstance Then
MsgBox "应用程序已有一个实例在运行!", vbInformation, "程序已运行"
End
End If
Dim fLogin As New frmLogin
fLogin.Show vbModal
If gOK Then
Dim fMainForm As New frmMain
fMainForm.Show
Else
End
End If
Unload fLogin
End Sub