点按钮修改一次成功之后如果不退出程序就再点按钮修改第二次密码的话就有问题
修改第二次输入的原密码不能是上次修改过的新密码，否则就提示原密码错误，等于说原密码还是第一次没有修改
前的密码。我估计是数据库没有刷新的缘故，谁能帮我改改，加一句刷新的语句什么的，让这个程序可以正常的连续修改密码

Private Sub isButton1_Click()
If Text2.Text = "" Then
MsgBox "原密码不能为空！", vbCritical + vbOKOnly, "警告"
Text2.SetFocus
Else
If Text3.Text = "" Then
MsgBox "新密码不能为空！", vbCritical + vbOKOnly, "警告"
Text3.SetFocus
Else
If Text4.Text = "" Then
MsgBox "确认密码不能为空！", vbCritical + vbOKOnly, "警告"
Text4.SetFocus
Else
If Text2.Text <> gtUser.UserPassWord Then
MsgBox "您输入的原密码有误！请重新输入！！", vbCritical + vbOKOnly, "警告"
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text2.SetFocus
Else
If Text3.Text <> Text4.Text Then
MsgBox "您两次输入的新密码不同！请重新输入！！", vbCritical + vbOKOnly, "警告"
Text3.Text = ""
Text4.Text = ""
Text3.SetFocus
Else
Dim lsSql As String

gdbConn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=CX;Initial Catalog=kaoqin"
gdbConn.Open

lsSql = "update login set PassWord=" & ConvSqlString(Text3)
lsSql = lsSql & " where Admin=" & ConvSqlString(Text1)

gdbConn.Execute lsSql

MsgBox "密码修改成功！", vbInformation + vbOKOnly, "提示"
Unload Me

gdbConn.Close
End If
End If
End If
End If
End If
End Sub

'sql语句的单引号操作
Public Function ConvSqlString(InSqlString) As String
ConvSqlString = "'" & InSqlString & "'"
End Function

gdbConn.Execute lsSql这句话表示数据库gdbConn执行lsSql

代码太长，没看完 ...

记录集刷新一次吧.....
要是还不可以就是你那sql语句有问题...

gtUser.UserPassWord 这个的问题啊!这个你没有打开的时候重新读一次!所以就没有在去更新了!

我这个就是按照你的那个做的。

我半夜的时候已经弄好了。

就在修改成功的提示后面加了一句代码就OK了。

gtUser.UserPassWord =text3

学习了?

我这个只有登陆的时候取的，所以没做多次更新的，谁没事会更新密码个不停呢
应该按照常理来说,修改密码程序要退出一次!重新登陆 才合理的!

也有道理

但是我现在做的这个东西是一个要保持长时间开着不能关闭的程序，是用来采集数据的
如果因为管理员登录修改了密码就要退出程序重新登录不太合适，所以我就没有做让它退出的