From子句语法错误
Private Sub Command2_Click()Dim SQL
Dim dbname As String
Dim db As Database
dbname = App.Path
If Right$(dbname, 1) <> "\" Then
dbname = dbname + "\"
dbname = dbname + "职员档案1.mdb"
Set db = OpenDatabase(dbname)
db.Close
Data1.DatabaseName = dbname
SQL = "select * from 职员基本情况 where" & Combo1.Text & " = " & Text1.Text & ""
Data1.RecordSource = SQL
Data1.Visible = False
Data1.Refresh
MSFlexGrid1.Visible = True
End If
End Sub
老是提示From子句语法错误 怎么搞的啊
