Question

vb连接数据库出现实时错误码91，对象变量或with块变量未设置错误

在学习数据库编程时写了一个纯代码连接access数据库的测试程序，出现实时错误91，对象变量或with块变量未设置错误
Private Sub Command1_Click()
Dim cnn As Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\wxgldata.mdb"
cnn.Open
Dim rst As New Recordset
rst.CursorLocation = adUseClient
rst.Open "select * from 用户表", cnn
Set datagnd1.DataSource = rst
rs.Close
cnn.Close
End Sub
以引用Microsoft ActiveX Data Object 2.6
数据库是用ACCESS2003绿色版做的

Answer 1

你的代码没有错误，如果总是出现“对象变量或with块变量未设置”错误，只有一个可能，就是你的
mshflexgrid
控件的问题。当用的是
msflexgrid
控件时，会出现你说的问题。

Answer 2

这种错误通常是变量的名字写错了，看了下你的代码，应该是
rs.Close
这句，这里应该是记录集吧，你上面定义的记录集变量是rst,而不是rs,换成：
rst.Close
试试

Answer 3

Dim cnn As Connection

改为
Dim cnn As New Connection

rs.Close
改为
rst.Close

Answer 4

Private Sub Command1_Click()
    Dim cnn As New Connection
    Dim rst As New ADODB.Recordset
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\wxgldata.mdb"
    cnn.Open
    rst.CursorLocation = adUseClient
    rst.Open "select * from jishijilu", cnn
    Set DataGrid1.DataSource = rst
End Sub