各位大神，登陆后，数据库连接修改密码有关问题

2013-07-01

各位大神求助，登陆后，数据库连接修改密码问题这个是登陆后，在主界面里一个修改登陆密码的窗口下面是数据库

各位大神求助，登陆后，数据库连接修改密码问题
这个是登陆后，在主界面里一个修改登陆密码的窗口
各位大神，登陆后，数据库连接修改密码有关问题

下面是数据库，表名是用户表

下面是程序，程序里的PublicUsername 和 PublicPassword 分别是当前登陆用户的用户名和密码，在登陆框登陆成功后赋值的，是一个全局变量！   定义在模块里

程序如下

Dim rs As ADODB.Recordset
Dim CONN As ADODB.Connection

Private Sub Command1_Click()

    CONN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\用户.mdb;Persist Security Info=False"
    CONN.Open
    If Text1 = "" Then
        MsgBox "修改密码需要旧密码!", vbOKOnly, "警告"
        Text1.SetFocus
    Else
        If Text2 = "" Then
        MsgBox "新的密码不能为空!", vbOKOnly, "提示"
        Text2.SetFocus
        Else
           If Text2 <> Text3 Then
               MsgBox "两次密码输入不同!", vbOKOnly, "提示"
               Text2 = ""
               Text3 = ""
               Text2.SetFocus
           Else
               If Text1.text = PublicPassword Then
               rs.Open "select * from 用户表 where 用户名 = PublicUserName , CONN"
               Set adoRs = CONN.Execute("update 用户表 set 密码='" + Text2.text + "'")
               adoRs.Update
               Text1.text = ""
               Text2.text = ""
               Text3.text = ""
               MsgBox "用户信息修改成功!", vbOKOnly, "提示"
               Else
               MsgBox "原密码输入错误", vbOKOnly, "提示"
               End If
          End If
       End If
    End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

运行后，提示实时错误91，“对象变量或with变量未设置”
错误行是
        CONN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\用户.mdb;Persist Security Info=False"

已经弄了一天了，无数google，还是解决不了，跪求大神帮忙！！！

热点排行

VB

各位大神，登陆后，数据库连接修改密码有关问题