Private Sub Form_Load()
Dim txtSQL As String
  Call DatabaseOpen
If Trim(Text1(0)) <> Trim(Text1(1)) Then
  MsgBox "密码输入不正确！", vbOKOnly + vbExclamation, "警告"
  Text1(1).SetFocus
  Text1(1).Text = ""
Else
  txtSQL = "update user_Info set user_PWD='" & Trim(Text1(1).Text) & "'where user_ID='" & user_ID & "'"
   = txtSQL
  cmd.Execute
  MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码"
  Me.Hide
 End If
 Call DatabaseClose
End Sub




这段代码哪里错了。是要做修改密码功能，但是运行结果是 先提示“修改密码成功”，然后再跳出修改的框框，这肯定是不对的，到底哪里错了呢？？？

还有其他问题想请教你，能教教吗？