Question

请问VB中这段代码总是提示from子句语法错误，怎么回事？

Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Sub Data()
On Error GoTo Err
Dbpath = App.Path & "\db1.mdb"
Constr = "Provider=Microsoft.Jet.OLEDB.4.0;;Persist Security Info=False;Data Source=" & Dbpath
Conn.Open Constr
Err:
If Err.Number Then
MsgBox "数据库出错"
End
End If
End Sub
Sub 添加()
SQL = "select * from 进"
rs.Open SQL, Conn, 1, 1
If rs.EOF Then
rs.AddNew
rs("商品编码") = Text1.Text
rs("商品名称") = Text2.Text
rs("进货价") = Text3.Text
rs("进货数量") = Text4.Text
rs("总成本") = Text5.Text
rs.Update
End If
rs.Clone
End Sub

Private Sub Command1_Click()
添加
End Sub

Private Sub Form_Load()
Call Data
End Sub
rs.Open SQL, Conn, 3, 3 也不行，总是提示from子句有语法错误

Answer 1

db1.mdb里有名字叫“进”的表吗？因为你的查询语句是：select * from 进

Answer 2

1，把On Error GoTo Err去掉，调试后再加上。
2，检查Microsoft ActiveX Date Objects 2.6 Library 是否引用（工程-引用）
3，sql中select * from 进 改成 select * from [进] 用[]将特殊关键字包含
4，rs.add需要的权限1,1 不支持 改成 Rs.Open Sql, Conn, adOpenKeyset, adLockOptimistic