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
连接的是MDB数据库类型 from 子语句语法错误
错误在 adodc1.refresh这条

把CommandType   属性改成  adCmdUnknown
希望对以后的朋友有帮助   

我想应该Refresh这句删除就可以了
刚刚初始化，没有修改和删除，为什么要refresh一下？