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子句语法错误
高手有没有呀，能指导一下不？

从代码看没有发现什么特殊的错误，发张图片来看看

有链接数据库吗？