Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\A.mdb;Persist Security Info=False"
= adCmdTable
Adodc1.RecordSource = "select * from 售电表 where 公司 = '" & Combo1.Text & "'"
Adodc1.Refresh
End Sub

求朋友帮我看看为什么我的程序运行起来一直说我from语法错误啊

，果然成功了，谢谢朋友