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

Question

我做了一个注册新用户的窗体，按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
运行后出现：参数不正确，或不在范围内或与其它参数冲突，怎么回事？

Answer 1

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

Answer 2

全部程序是这样的：（上面的程序输入有误）
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怎么更正程序？？

Answer 3

全部程序是这样的：（上面的程序输入有误）
Private Sub CmdSure_Click()
Dim rsuseradd As New ADODB.Recordset
rsuseradd.Open "select * from useradd", fCnn, adOpenStatic, adLockOptimistic
rsuseradd.AddNewrsuseradd("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