你的代码没有错误,如果总是出现“对象变量或with块变量未设置”氏敬错误,只有一个可能,就是你的
mshflexgrid
控件的问题。当用的是
msflexgrid
控件时,会出现你说歼贺慎的拍此问题。
这种错误通姿誉常是变量的名字写错了,看了下你的代码,应该是迹洞段
rs.Close
这句,这里应该是记录集吧,你上面定义的记录集变量是rst,而不是rs,换成颤消:
rst.Close
试试
Dim cnn As Connection
改差首模为虚缓
Dim cnn As New Connection
rs.Close
改为芹肢
rst.Close
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