手机怎样拨号上网:ACCESS数据添加(有代码)

哪儿有错？ 谢谢了
Private Sub cmdSave_Click()
'必填项不能为空！！
If User.Text = "" Or Sex.Text = "" Or Station.Text = "" Or Pwd.Text = "" Or RePwd.Text = "" Or Nation.Text = "" Or MoveMobile.Text = "" Or HomePhone.Text = "" Or HomeAddress.Text = "" Then
MsgBox "有必填项目没有填写，请返回重新输入！", vbExclamation + vbOKOnly, "提醒！"
User.SetFocus
'判断密码不能空和两次密码不一致！
ElseIf Pwd.Text <> RePwd.Text Then
MsgBox "两次密码输入不一致，请返回重新输入！", vbExclamation + vbOKOnly, "提醒！"
User.SetFocus
Else
Dim Conn As New ADODB.Connection
Dim Cmd As New Command
Dim StrSql As String

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\Hydata.mdb" & ";Mode=ReadWrite;Persist Security Info=False"
StrSql = "Insert Into Admin (Admin_user,AdminPwd)Values(&Trim(User)&,&Trim(Pwd)&)"

Cmd.Execute StrSql

MsgBox "管理员添加成功！", vbExclamation + vbOKOnly, "提醒！"
Conn.Close

End If
End Sub