VB用ADO控件修改数据库里的记录的问题

Question

Option Explicit
Private Sub Command1_Click()
If Trim$(Text1.Text) = "" Then
MsgBox "请输入密码！", vbCritical
Text1.SetFocus
Exit Sub
End If
If Trim$(Text2.Text) = "" Then
MsgBox "请确认新密码！", vbCritical
Text2.SetFocus
Exit Sub
End If
If Trim$(Text1.Text) <> (Text2.Text) Then
MsgBox "确认密码错误，请重新确认！", vbCritical
Text2.SetFocus
Exit Sub
End IfWith Adodcp
 .RecordSource = "update 用户 set 密码= '" & Trim(Text1.Text) & "' WHERE 用户名='" & gstrUser & "'"
End With
MsgBox "密码修改成功！", vbCriticalEnd SubPrivate Sub Command2_Click()
Unload Me
End Sub代码如上 
With Adodcp
 .RecordSource = "update 用户 set 密码= '" & Trim(Text1.Text) & "' WHERE 用户名='" & gstrUser & "'"
End With
MsgBox "密码修改成功！", vbCritical
这里是修改密码的 
提示成功 数据库里的数据却没有修改 ，下次登陆的时候还是原密码
来位高手 给出解决的代码

Answer 1

With Adodcp 
   .RecordSource = "update 用户 set 密码= '" & Trim(Text1.Text) & "' WHERE 用户名='" & gstrUser & "'" 
   .refresh
End With 

Answer 2

Option Explicit
Private Sub Command1_Click()
If Trim(Text1.Text) = "" Then
MsgBox "请输入密码！", vbCritical
Text1.SetFocus
Exit Sub
End If
If Trim(Text2.Text) = "" Then
MsgBox "请确认新密码！", vbCritical
Text2.SetFocus
Exit Sub
End If
If Trim(Text1.Text) <> Trim(Text2.Text) Then
MsgBox "确认密码错误，请重新确认！", vbCritical
Text2.SetFocus
Exit Sub
End If
With Adodcp
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名称.mdb;Persist Security Info=False"
.RecordSource = "update 用户 set 密码= '" & Trim(Text1.Text) & "' WHERE 用户名='" & gstrUser & "'"
End With
MsgBox "密码修改成功！", vbCritical
End Sub
Private Sub Command2_Click()
Unload Me
End Sub 

Answer 3

.refresh
方法失败 是不是要ADODC的连接问题 
我是在属性里直接连接的数据库 
记录源是用户字段

Answer 4

还是那样 
错误是没有错误 
不过数据没改过来
我用的是ACCESS2000的数据库文件

Answer 5

问题解决了 
我把ADODC的属性里的记录源 删除掉 就可以
.refresh 了
- - 
整了这么久 终于明白了 
辛苦大家了 
3Q~~~~