为什么在调试的时候 Adodc1.Refresh出错呢？ 对象‘Refresh’的方法‘IAdodc’失败

Private Sub Form_Load()
Dim i As Integer
Adodc1.RecordSource = "select * from 学生信息表"
Adodc1.Refresh
cmbField.Clear
For i = 0 To Adodc1.Recordset.Fields.Count - 1
cmbField.AddItem Adodc1.Recordset.Fields(i).Name
Next i
cmbField.Text = cmbField.List(0)

End Sub

Form子句语法错误
实时错误'-2147217900(80040e14)'
谢谢帮忙了
数据库连接上了，Adodc1也设置好了

缺少数据库连接句设置.
即
Adodc1.ConnectionString
的赋值句没有.

adodc属性----记录源----改成 1 - adcmdtext----在下面输入字符串 “select * from ***” 就好了 祝你成功