VB 连接ACCESS数据库的语句，cnn老是错>~< 急求大神帮助！！！

Question

模块：
Public strclid As String
Public cnn As New ADODb.Connection
Public user As String
Sub main()
cnn.Open "driver =microsoft access driver (*.mdb);dbq=" & App.Path & "\..\database\enactus.mdb"
login.Show
End Sub语句，总是显示cnn=“”
rss.Open "select  *  from user where name ='" & Text1.Text & "'", cnn, adOpenDynamic, adLockOptimistic
不知道是哪里错了……

Answer 1

'代码不全，估计是没有调用cnn数据库连接
Sub main(cnn)
cnn.Open "driver =microsoft access driver (*.mdb);dbq=" & App.Path & "\..\database\enactus.mdb"
End Sub     '这个过程必须在模块或在当前界面，否则这个数据库连接会丢失。'在调用数据库连接的界面，必须有
Dim rss As New ADODB.Recordset    '声明
Call main(cnn)     '调用数据库连接
rss.Open "select  *  from user where name ='" & Text1.Text & "'", cnn, adOpenDynamic, adLockOptimistic
'这样就不会出错了。