Private Sub Form_Load()
If Me.Adodc1.Recordset.RecordCount > 0 Then
   Me.Adodc1.Recordset.MoveFirst
   Do While Not Me.Adodc1.Recordset.EOF
     Me.List1.AddItem (Me.Adodc1.Recordset.Fields("专业"))
     Me.Adodc1.Recordset.MoveNext
   Loop
End If
Comm21.Enabled = False
Comm22.Enabled = False
End Sub
我这个是一个管理系统的一个小部分，程序一运行到这个地方就出现问题，光标停在If Me.Adodc1.Recordset.RecordCount > 0 Then这个地方
请大家帮我看看是怎么回事儿


它不是告诉你了么"对象变量或with块变量未设置 "
你要研究下你的   Me.Adodc1 是哪里来的

同上``