一段添加数据库记录的程序

[jjs008]

我做了一个注册新用户的窗体，按CmdSure把输入的内容提交，我用data控件连接数据库，下面是一段程序：
Private Sub CmdSure_Click()
Dim rsuseradd As New ADODB.Recordset
rsuseradd.Open "select * from useradd", fCnn, adOpenStatic, adLockOptimistic
rsuseradd.AddNew
rsuseradd("username") = Trim(TxtName.Text)
rsuseradd("userposition") = Trim(ComPosition.Text)
rsuseradd("section") = Trim(ComSection.Text)
rsuseradd("idnum") = Val(TxtId.Text)
rsuseradd("usernote") = Trim(TxtNote.Text)
If TxtPassword1.Text = TxtPassword2.Text Then
rsuseradd("password") = Trim(TxtPassword1.Text)
Else
MsgBox "ÊäÈëÃÜÂëÓë֮ǰ²»Ò»Ö£¬ÇëÔÙ´ÎÊäÈë", vbExclamation, "È·¶¨"
TxtPassword1.SetFocus
rsuseradd.Update
rsuseradd.Close
End If
End Sub
运行后出现：参数不正确，或不在范围内或与其它参数冲突，怎么回事？

[jjs008]

哦，MsgBox后面的句子是中文“输入密码与之前不一致，请再次输入”，vbclamation“确定”

[jjs008]

全部程序是这样的：（上面的程序输入有误）
Private Sub CmdSure_Click()
Dim rsuseradd As New ADODB.Recordset
rsuseradd.Open "select * from useradd", fCnn, adOpenStatic, adLockOptimistic
rsuseradd.AddNew
rsuseradd("username") = Trim(TxtName.Text)
rsuseradd("userposition") = Trim(ComPosition.Text)
rsuseradd("section") = Trim(ComSection.Text)
rsuseradd("idnum") = Val(TxtId.Text)
rsuseradd("usernote") = Trim(TxtNote.Text)
If TxtPassword1.Text = TxtPassword2.Text Then
rsuseradd("password") = Trim(TxtPassword1.Text)
Else
MsgBox “输入密码与之前不一致，请再次输入”，vbclamation“确定”
TxtPassword1.SetFocus
rsuseradd.Update
rsuseradd.Close
End If

怎么更正程序？？

[lfshf]

你的程序没有用缩进、格式化，看起来真是辛苦！

[jjs008]

全部程序是这样的：（上面的程序输入有误）
Private Sub CmdSure_Click()
Dim rsuseradd As New ADODB.Recordset
rsuseradd.Open "select * from useradd", fCnn, adOpenStatic, adLockOptimistic
rsuseradd.AddNew

rsuseradd("username") = Trim(TxtName.Text)
rsuseradd("userposition") = Trim(ComPosition.Text)
rsuseradd("section") = Trim(ComSection.Text)
rsuseradd("idnum") = Val(TxtId.Text)
rsuseradd("usernote") = Trim(TxtNote.Text)

If TxtPassword1.Text = TxtPassword2.Text Then
rsuseradd("password") = Trim(TxtPassword1.Text)
Else
MsgBox “输入密码与之前不一致，请再次输入”，vbclamation“确定”
TxtPassword1.SetFocus
End If
rsuseradd.Update
rsuseradd.Close