运行后，指到：conn.Execute sql，提示“对象关闭时，不允许操作”。请问我这里有什么问题~！谢谢
Private Sub cmd1_Click()
Dim p As String
Dim p2 As String
Dim sql As String

    p = InputBox("请输入新密码")
    p2 = InputBox("请再次输入新密码")
    If p <> p2 Or pass = "" Then
        MsgBox "输入有误"
        Exit Sub
    End If

    sql = "update 用户 set 密码='" & pass & "' where 用户名='" & UserName & "'"
    conn.Execute sql
End Sub

我用的是sql2000数据库

没看到你的Conn已经连接上.

建议你把关键的发出来..
即Conn的连接代码.是否已经断开了..等..

主要的不发...下面这么废的代码..就偏要发..
/*
Dim p As String
Dim p2 As String
Dim sql As String

    p = InputBox("请输入新密码")
    p2 = InputBox("请再次输入新密码")
    If p <> p2 Or pass = "" Then
        MsgBox "输入有误"
        Exit Sub
    End If
*/

Private Sub cmd1_Click()
Dim p As String
Dim p2 As String
Dim rs2 As New ADODB.Recordset
Dim sql As String
  rs2.Open "select * from 用户 order by id", cnn, adOpenKeyset, adLockOptimistic
    p = InputBox("请输入新密码")
    p2 = InputBox("请再次输入新密码")
    If p <> p2 Or p = "" Then
        MsgBox "输入有误"
        Exit Sub
    End If

    sql = "update 用户 set 密码='" & p & "' where 用户名='" & UserName & "'"
    conn.Execute sql
End Sub
是这样吗，还是不行

如果
rs2.Open "select * from 用户 order by id", cnn, adOpenKeyset, adLockOptimistic
可以打开没有错的话.
那么就把
conn.Execute sql
改为
cnn.Execute sql
否则如果不可以
CONN.OPEN "    连接数据库的字符串     "

同3楼的话..
没看到你的conn

我模块里的是：
Option Explicit

Public conn As New ADODB.Connection
Public Function cnn() As String   
  cnn = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=yj"
 
如果改为cnn.Execute sql
系统显示cnn为无效限定符

Private Sub cmd1_Click()
Dim p As String
Dim p2 As String
dim conn As New ADODB.Connection
Dim rs2 As New ADODB.Recordset
conn.open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=yj"
Dim sql As String
  rs2.Open "select * from 用户 order by id", cnn, adOpenKeyset, adLockOptimistic
    p = InputBox("请输入新密码")
    p2 = InputBox("请再次输入新密码")
    If p <> p2 Or p = "" Then
        MsgBox "输入有误"
        Exit Sub
    End If
  rs2.close
    sql = "update 用户 set 密码='" & p & "' where 用户名='" & UserName & "'"
    conn.Execute sql
End Sub

可以使用这个
if rs.state=adstatopen then
rs.close
endif