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


运行行是弹出， FROM 子句语法错误
实时错误 '-2147217900 (80040e14) '  
 对象 'Refresh '的方法 'IAdodc '失败

什么原因啊。

adodc1.datasource?
库存表存在吗?

估计是数据连接未能有效建立，或者是楼上说的表不存在