Question

Vb中用ADO控件连接了一个数据库， Adodc1.Recordset.MoveFirst 报错，对象变量或with变量未设置，怎么回事

Private Sub Form_Load()
Text1.Locked = True

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim nod As Node
Set nod = TreeView1.Nodes.Add(, , "Father", , 1)
Adodc1.Recordset.MoveFirst
For i = 0 To Adodc1.Recordset.RecordCount - 1
Set nod = TreeView1.Nodes.Add("Father", tvwchlid, , Adodc1.Recordset.Fields("sele_no"), 2)
Adodc1.Recordset.MoveNext
TreeView1.Refresh
Next i
End Sub

Answer 1

原因比较多，例如Adodc1没有绑定数据库、Adodc1没有绑定数据表、数据表没有记录等等等等，情况不明，不好回答。