急：请帮忙解决VB调用数据库出现错误91的问题

[MissL_csdn]

我想窗体load时连接ACCESS数据库，代码如下：

Option Explicit
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As ADODB.Recordset

Private Sub Form_Activate()
   Dim sql1 As String
   Set cnn = New ADODB.Connection
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\glnhpj.mdb;Persist Security Info=False"
   sql1 = "select * from user"
     Set cmd.ActiveConnection = cnn
     cmd.CommandType = adCmdText
     cmd.CommandText = sql1
     rs.Open sql1, cnn, adOpenKeyset, adLockOptimistic
   Text1.SetFocus
End Sub

运行时系统提示：实时错误‘91’，对象变量或With块变量未设置。调试时指向“ rs.Open sql1, cnn, adOpenKeyset, adLockOptimistic”这条语句。可是，相应的数据库、数据表都没问题的，在ACCESS中运行那句 "select * from user"是一切正常的，能显示内容的。请各位大侠们帮忙找找究竟是哪里出问题了。另外，若在模块中设置了数据库的连接cn，代码如下

Public adocon As New ADODB.Connection
Public adors As New ADODB.Recordset
'Public cmd As New ADODB.Command

Public Function cn() As ADODB.Connection    '定义返回一个数据库连接
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\glnhpj.mdb;Persist Security Info=False"
End Function

那在上述的窗体Form_Activate()中是否可以用的“ Set cnn = cn”代替第2、3行？

[饮水需思源]

sql1 = "select * from [user]" user是系统关键字，要用方括号括起来

[冰不孤独]

放在ＬＯＡＤ里面

[MissL_csdn]

试过把代码放LOAD中，问题仍然。 也试过把sql1改为sql1 = "select * from [user]"，问题仍然；把数据表改名了不叫user了代入，问题仍然。 大侠们，问题还是没办法解决啊，还得求救啊！拜托了！

[ZHRXJR]

Option Explicit
Dim cnn As New ADODB.Connection   '数据库连接对象
Dim rs As New ADODB.Recordset     '记录集对象
'有这二个对象足矣
 
Private Sub Form_Activate()
   Dim sql1 As String
   Call cn(cnn)
   sql1 = "select * from user"
     rs.Open sql1, cnn, adOpenKeyset, adLockOptimistic
   '数据表操作语句
   
   
   
   rs.Close   '关闭记录集对象
   cnn.Close    '关闭数据库连接对象
End Sub

Sub cn(cnn)
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\glnhpj.mdb;Persist Security Info=False"
End Sub

[vansoft]

Dim rs As New ADODB.Recordset 加new关键字，定义时不加，用之前得New一下。

[MissL_csdn]

谢谢各位大侠的指教！确实是由于urer表名的问题。问题已经解决了，谢谢大家的热心！ 我是新手，不知怎么給分各位大侠哦。能告诉我吗？