使用ADODC连接ACCESS数据库Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\XY\桌面\ceshi\KFGL.MDB;Persist Security Info=False

3个TEXT控件对应密码
txtPW密码
txtNPW新密码
txtConPW重复密码
表UESR内字段用户名、密码存放相关信息

主要问题在确认正确填写更改密码后
如何更改刷新库里字段内容

Dim mrc As ADODB.Recordset

mrc.AddNew
mrc.Fields(0) = Trim(用户名)
mrc.Fields(1) = Trim(新密码)
mrc.Update
mrc.Close

[此贴子已经被作者于2006-5-26 10:41:41编辑过]

Dim rs_chang As New ADODB.Recordset
Dim sql as string
If Trim(Text1.Text) <> Trim(Text2.Text) Then
MsgBox "两次密码输入不一致,请重新输入!", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Text2.Text = ""
Else
sql = "select * from user where user_name='" & user & "'"
'user为当前登陆用户名
rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_chang.Fields(1) = Text2.Text
rs_chang.Update
rs_chang.Close
MsgBox "密码修改成功!¦", vbOKOnly + vbExclamation, ""
Unload Me
End If

谢谢，我去试试