我以为是个多新颖的问题呢。搜索论坛。

泼辣

Public cn As New Connection
Public rs As New Recordset
Public ConStr As String

Public Sub main()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\数据库\manage.mdb"
登陆界面.Show
End Sub