运行时为什么会出现这样的错误

[learn_vb]

Private Sub Form_Load()
Dim j As Integer
a2_newsdata.DatabaseName = App.Path & "\data\sbwddb.mdb"
a2_newsdata.RecordSource = "select * from news_info"
If a2_newsdata.Recordset.RecordCount = 0 Then
MsgBox "dfdf"
.....
End If
End Sub运行时为什么会出现这样的错误:
object variable or with block variable not set

[TopHead]

a2_newsdata没定义吧。

[mafangsan]

如果你用的是对象变量那可能a2_newsdata没定义
如果你用的是Data控件，可能控件名称不是a2_newsdata

[Un1]

Dim j As Integer
a2_newsdata.DatabaseName = App.Path & "\data\sbwddb.mdb"
a2_newsdata.RecordSource = "select * from news_info"
a2_newsdata.Refresh
If a2_newsdata.Recordset.RecordCount = 0 Then
MsgBox "dfdf"
.....
End If

[lczddd]

If a2_newsdata.Recordset.RecordCount = 0 Then
MsgBox "dfdf"
.....
End If
将上面的一段代码放到form.active事件中

[xiaoy2000]

原因在于a2_newsdata.Recordset还没有附值(打开)只规定了RecordSource
还没执行.另外如果不对,就加一条a2_newsdata.Recordset.movelast试一下

[xiaoming]

xiaoy2000 回答的正确