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句子没错啊,请问该怎么修改啊?