Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Command1_Click()
    Dim txtSQL, MsgText As String
    Dim mrc As ADODB.Recordset
   
    If Trim(Text1.Text) <> Trim(Text1.Text) Then
        MsgBox "密码输入不正确！", vbOKOnly + vbExclamation, "警告"
        Text1.SetFocus
        Text1.Text = ""
    Else
        txtSQL = "select * from user_Info where user_ID = '" & username & "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        mrc.Fields(1) = Text1.Text
        mrc.Update
        mrc.Close
        MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码"
        Me.Hide
        
    End If
        
        
End Sub


谢谢各位了！

mrc.Fields(1) = Text1.Text


调试的时候就是这里出现错误！

为什么啊！各位帮帮忙啊！

小弟在这里先谢谢了！~

没有设置Mrc的属性,如游标位置,游标类型,锁类型,另外你那个ExcuteSQL也要出发来看看

不好意思，还是不是很了解，我是很新很新的新手！~ExcuteSQL怎么发？