Public oldPwd As String
Public username As String

Private Sub Cmd_Cancel_Click()
Unload Me
End Sub

Private Sub Cmd_OK_Click()

If Trim(txtOldPwd) = oldPwd Then
Adodc1.RecordSource = "SELECT * FROM Users WHERE User_name = '" + Trim(username) + "'"
Adodc1.Refresh
Adodc1.Recordset.Fields(1).Value = Trim(txtNewPwd.Text)

Adodc1.Recordset.Update
MsgBox "修改成功"
End If

Unload Me
Frm_selectUser.Adodc1.Refresh 这里出现错误 424 ‘要求对象’
End Sub

Private Sub Form_Load()
'txtOldPwd.SetFocus
End Sub