Private Sub Command1_Click()
            On Error Resume Next
            Dim Password As String
            Dim Newpassword As String
            
            Password = Text1.Text
            Newpassword = Text2.Text
            
            Set Mydb = ExeCutesql("SELECT pass from user1 WHERE user='" & Cname & "'", Str_text)
            
            If Not Password = Mydb.Fields(0) Then
                  MsgBox "原密码输入错误！", vbOKOnly + 32, "注意"
                  Text2.Text = ""
                  Text3.Text = ""
                  Text2.SetFocus
            Else
               If Text3.Text <> Newpassword Then
                  MsgBox "你两次输入密码不一致，请重新输入！", vbOKOnly + 32, "注意"
                  Text1.SetFocus
               Else
                  ExeCutesql "UPDATE user1 SET pass= '" & Newpassword & "' where user='" & Cname & "'", ""
                  MsgBox "密码更改成功！", vbOKOnly + 64, "注意"
                  Unload Me
               End If
            End If
End Sub

Password = trim(Text1.Text)
Newpassword = trim(Text2.Text)
            
Set Mydb = ExeCutesql("SELECT pass from user1 WHERE user='" & Cname & "'", Str_text)
msgbox Mydb.Fields(0)
if Password=Mydb.Fields(0) then
这样看看.

Password = Trim(Text1.Text)
            Newpassword = Trim(Text2.Text)
            
            Set Mydb = ExeCutesql("SELECT pass from user1 WHERE user='" & Cname & "'", Str_text)
            MsgBox Mydb.Fields(0)
            If Password = Mydb.Fields(0) Then
                If Text3.Text = Newpassword Then
                  ExeCutesql "UPDATE user1 SET pass= '" & Newpassword & "' where user='" & Cname & "'", ""
                  MsgBox "密码更改成功！", vbOKOnly + 64, "注意"
                  Unload Me
                Else
               
                  MsgBox "你两次输入密码不一致，请重新输入！", vbOKOnly + 32, "注意"
                  Text1.SetFocus
                End If
            Else
                  MsgBox "原密码输入错误！", vbOKOnly + 32, "注意"
                  Text2.Text = ""
                  Text3.Text = ""
                  Text2.SetFocus
            End If

那估计是你ExecuteSQL过程的问题了.

谢谢版主，我再找找原因