from字句异常

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是保留字，要用方括号括起来，建议楼主不要将保留字作为表名或字段名使用