這個有點糾結，下面我把我自己做的一個修改密碼的程式給你講解一下。

Private Sub Command1_Click()

Adodc1.RecordSource = "select * from 登入 where 使用者名稱="" + Text1.Text + """

Adodc1.Refresh

If Adodc1.Recordset.RecordCount = 0 Then

MsgBox ("使用者不存在！")

Text1.Text = ""

Text2.Text = ""

Else

If Trim(Text2.Text) = Trim(Adodc1.Recordset.Fields("密碼")) Then

MsgBox ("登陸成功！")

Me.Hide

物資管理資訊系統.Show

Else

MsgBox ("密碼錯誤！")

Text2.Text = ""

End If

End If

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Text2_keydown(keycode As Integer, shift As Integer)

If keycode = 13 Then

Call Command1_Click

Else

End If

End Sub

上面這個是可以執行的啊！