Attribute VB_Name = "Mdl_DB"
Public conn As New ADODB.Connection
Sub Main()
Dim ConnectionString, MyDatabase, Mypath As String
'Mypath = App.EXEName
Mypath = App.Path
On Error GoTo ConnectErr
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Mypath & "\DB\data.mdb;Jet OLEDB:Database Password=aiwei"
With conn
.ConnectionString = ConnectionString
.ConnectionTimeout = 0
.Open
End With
FrmLogin.Show vbModal
If Not FrmLogin.OK Then
Set conn = Nothing
End
End If
FrmMain.Show
Exit Sub
ConnectErr:
MsgBox "数据库移动或不存在!", vbCritical, "警告"
End Sub