运行后，指到：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数据库

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
是这样吗，还是不行

我模块里的是：
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为无效限定符

好的，谢谢，解决了