Private Sub Form_Load()
If Adodc1.Recordset.RecordCount > 0 Then '///////////对象变量或　with 块变量未设置
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
List1.AddItem (Adodc1.Recordset.Fields("专业"))
Adodc1.Recordset.MoveNext
Loop
End If
Comm21.Enabled = False
Comm22.Enabled = False
End Sub

我弄了一个成绩管理系统，结果出现上面这个错误，请问是怎么回事，不胜感激
同时我去检测了ＯＤＢＣ数据源ＴＥＳＴ是成功的，请问是怎么啦？？？？
Dim rs As ADODB.Recordset
Dim sqltxt As String 这是ＰＵＢＬＩＣ

[此贴子已经被作者于2006-12-21 16:40:07编辑过]

我设计的窗体中用天了这个ＡＤＯＤＣ啊，所以就有了这个东西，能不能再想想什么原因啊