大家帮我看看这段程序有什么问题？

Question

Public Sub ConnectUserDb()
On Error Resume Next
Set cn = New ADODB.Connection
cn.ConnectionString = "DBQ=" & App.Path & "\UserDb.mdb;DefaultDir=" & App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & "Threads=3;UID=;UserCommitSync=Yes;PWD=;"
cn.CursorLocation = adUseClient
cn.Open
End Sub用插入语句总不能正确插入
    cn.Execute "insert into User(UserId,Password,Level) values(Trim(UserId),Trim(UserPsw),Trim(UserLevel))"

Answer 1

cn.Execute "insert into User(UserId,Password,Level) values(" & Trim(UserId) & "," & Trim(UserPsw) & "," & Trim(UserLevel) & ")"

Answer 2

cn.Execute "insert into User(UserId,Password,Level) values('" & Trim(UserId) & "','" & Trim(UserPsw) & "','" & Trim(UserLevel) & "')"^_^

Answer 3

cn.Execute "insert into [User](UserId,Password,Level) values('" & Trim(UserId) & "','" & Trim(UserPsw) & "','" & Trim(UserLevel) & "')"建议将user表名修改成非保留字

Answer 4

用户名密码等字段都是什么类型的！？如果是字符型要用单引号括起来，如下：cn.Execute "insert into User(UserId,Password,Level) values('" & Trim(UserId) & "', '" & Trim(UserPsw) & "','" & Trim(UserLevel)) & "'"

Answer 5

写错了，最后一个括号在引号里！！cn.Execute "insert into User(UserId,Password,Level) values('" & Trim(UserId) & "', '" & Trim(UserPsw) & "','" & Trim(UserLevel) & "'）"

Answer 6

如果数据库中UserId是数字型的，" & Trim(UserId) & "两边就不用加''，否则就要加''，另外两个字段同理。

Answer 7

1、user表名
2、字段类型与变量类型匹配

Answer 8

超级牛比的图片，吐血推荐
http://xmhabo.com/bbs/dispbbs.asp?boardID=11&ID=181&page=1
请发表感想哦！
更多图片请访问：http://inet.1m.cn     BBS

Answer 9

>>cn.ConnectionString = "DBQ=" & App.Path & "\UserDb.mdb;DefaultDir=" & App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & "Threads=3;UID=;UserCommitSync=Yes;PWD=;"既然使用本地 Access 数据库，大可不必使用 ODBC：
cn.ConnectionString = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source= 'UserDb.mdb;"
cn.CursorLocation = adUseClient
cn.Opencn.Execute "insert into User(UserId,Password,Level) values(" & Trim(UserId) & ",'" & Trim(UserPsw) & "'," & Trim(UserLevel) & ")"