INSERT INTO 添加时候出错！

Question

Private Sub CmdAdd_click()                                      
    Checktxtinfo Text1(0).Text, Text1(1).Text, Text1(2).Text
    Dim cnn As New adodb.Connection
    'Dim cmd As New adodb.Command
    'Dim rs As Recordset
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\data\user.mdb"          
    cnn.Open
    'Set cmd.ActiveConnection = cnn
     '   cmd.CommandText = "INSERT INTO UserTable(UserName,Password) VALUES(1,2) "
     '   cmd.Execute
    INSERT INTO UserTable(UserName,Password) VALUES(1,2)
    MsgBox "Ìí¼Ó³É¹¦", vbInformation, "¹§Ï²Äú£¡"
    'rs.AddNew
    'rs("username") = "text1(0)"
    'rs("password") = "text1(1)"
    'rs.Update
    
End Sub
我试了几种怎么都不行啊

Answer 1

cmd.CommandText = "INSERT INTO UserTable(UserName,Password) VALUES('1','2') "
cmd.Execute

Answer 2

错了
cnn.execute ("INSERT INTO UserTable(UserName,Password) VALUES('1','2')")

Answer 3

Private Sub CmdAdd_click()                                      'Ôö¼ÓÓû§
    Checktxtinfo Text1(0).Text, Text1(1).Text, Text1(2).Text
    Dim cnn As New adodb.Connection
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; _
       Data Source=" + App.Path + "\data\user.mdb"          
    cnn.Open
    cnn.Execute ("INSERT INTO UserTable(UserName,Password) VALUES('1','2')")
    MsgBox "Ìí¼Ó³É¹¦", vbInformation, "¹§Ï²Äú£¡"
End Sub这样吗 还是不行啊 提示是“INSERT INTO　语法错误！”

Answer 4

可能是有保留字吧
cnn.Execute ("INSERT INTO UserTable(UserName,[Password]) VALUES('1','2')")