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编辑过]

adodc好像是基于控件的...好像要写它进行数据绑定才行...
我也不太清楚...很久没用过Adodc了...
建议你用adodb对象.

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

Private Sub Form_Load()
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=D:\mdb\Northwind.mdb"
.CommandType = adCmdText
.CursorLocation = adUseClient
.RecordSource = "select * from orders"
.Refresh
Dim i As Long
For i = 0 To .Recordset.RecordCount - 1
Debug.Print .Recordset.Fields(0).Value
.Recordset.MoveNext
Next
End With
End Sub

我试了一下..没有问题的..

是啊