我们又要凭空去想有什么问题了。

Public cn As New Connection
Public rs As New Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

你不觉得你一件事情做了两遍吗？

这不是大问题

也是哦。。。

如果楼主发现的问题就是12楼的话 我会很崇拜他的

可为什么
Public cn As New Connection
Public rs As New Recordset
这两句代码根本就不能运行
提示“使用无效关键字”
不用可以运行 但 cn的连接值不能传递到 登陆界面

把New去掉。
至于没传递过去是因为你没写代码。

那我该怎样写代码呀

Option Explicit
Public Con As ADODB.Connection
Public Rst As ADODB.Recordset

Public Sub Main()
Set Con = CreateObject("ADODB.Connection")
With Con
.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" _
& App.Path & "\data\data.mdb"
.Open
End With
End Sub

谢谢