求高手帮解答VB代码

rivate Sub Command1_Click()

'用adodc控件连接数据库
adodcl = Connect()

'判断两次输入密码是否相同
If Trim(Text1.Text) <> Trim(Text2.Text) Then

'如果不相同弹出提示信息
MsgBox "密码不正确！", vbOKOnly + vbExclamation, "信息提示"

'Text1设为选中
Text1.SetFocus

'Text1内容清空
Text1.Text = ""
Else

'当两次密码输入一至,Data1的连接字符串设为数据库里用户名为UserName的一项
Data1.RecordSource = "select * form 用户 where 用户名= ' " & UserName & " ' "

'更新Data1的内容
Data1.Refresh

'设置Data1的内容为Text1中输入的内容
Data1.Recordset.Fields("密码") = Text1.Text

'上传至数据库
Data1.Recordset.Update

'弹出提示信息,密码修改成功
MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码"
End If

End Sub

这是密码修改部分，
如果2次输入的密码不同就进入重新输入

如果2次输入的密码相同则修改密码保存到数据库中。

记录打开的方式, 要在可以修改的状态下,