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

看看有没有连接数据库

没看你代码中连接数据库，是不是控件中连接好了？,我一般用代码连接，一次连接以后都能用
你的sql语句是没问题的，很简单的一句话
如果还不行，那就把错误提示和一些必要程序提供上来，一般这里的人都能帮你解决，这个不是大问题