from字句错误
想将access数据库文件转换为sqlserver文件,编写代码如下:

Private Sub Command1_Click()

Dim db As New ADODB.Connection
Dim dbstr As String
Dim tb As New Recordset
Dim filename As String

If Right(App.Path, 1) = "\ " Then
filename = App.Path & "mdb.mdb "
Else
filename = App.Path & "\mdb.mdb "
End If

dbstr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & filename

db.Open dbstr
tb.Open "select * from user ", db

Dim conn1 As New ADODB.Connection
Dim connstr As String
Dim cmd1 As New ADODB.Command

connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=sql;Data Source=LLZ "
conn1.Open connstr

Set cmd1.ActiveConnection = conn1
Do While Not tb.EOF

Cmds1 = "insert into user values( ' " & tb.Fields(0) & " ', ' " & tb.Fields(1) & " ') "

cmd1.CommandText = Cmds1

cmd1.Execute

tb.MoveNext

Loop
MsgBox "载入完毕 ", , "提示 "
db.Close
conn1.Close

Unload Me
End Sub

可是每次运行时都会提示:from子句语法错误,看来看去都觉得那个select句子没错啊,请问该怎么修改啊?

[解决办法]
"select * from [user] "
user是保留字，要用方括号括起来，建议楼主不要将保留字作为表名或字段名使用