请大家帮忙￣这个功能如何实现，在线等待？

请大家帮忙￣这个功能如何实现，在线等待？Dim myRs As New ADODB.RecordsetDim i_XueShengKQ_BianH As StringDim i_XueShengKQ_MingC As StringDim myRow As StringmyRow = FlexAll_XueShengKQ.Rowi_XueShengKQ_BianH = FlexAll_XueShengKQ.TextMatrix(myRow, t_FlexXueShengKQ_BianH)Private Sub S_XueShengKQ_ShanC()i_XueShengKQ_MingC = FlexAll_XueShengKQ.TextMatrix(myRow, t_FlexStudent_MingC)i_XueShengKQ_MingC = f_Student_BianHToMingC(i_XueShengKQ_MingC)mySql = "select * from XueShengKQ where Number='" & i_XueShengKQ_BianH & "'"myRs.Open "XueShengKQ", myCon, 3, 2 If MsgBox("真的要删除 '" & i_XueShengKQ_MingC & " '的这条成绩记录吗？", vbYesNo, "警告") = vbYes Then myRs.Delete myRs.Close MsgBox "删除记录成功！" Exit Sub End IfmyRs.CloseEnd Sub我以经实现删除的功能了，但是看不到表里面数据没被删除，怎么更新，。重新打开数据库看一下？删除以后再rs.update一下吧：）myRs.DeletemyRs.Update3楼的我放了myRs.Update在myRs.Close的上面，但还是没有效果啊！！！奇怪了，在添加这边能见到效果的?gt;>?hr>4楼的也试过了，不行Delete是什么意思？删除什么？Update我知道是更新数据。在添加那个功能里有效果，在删除这里就没有了，郁闷！是不是要把里面的内容清空了再更新？myRs.refresh你看这样行不行myRs.refresh没有这个方法是不是有点像我这个问题呀？下面是一句 SQL 将用户名为 UserName的 用户密码改为text1.text 里面输入的内容txtSQL = "update Manager set pwd='" & .Text & "' where username = '" & UserName & "'" Set Recordset = ExecuteSQL(txtSQL)ExecuteSQL(ByVal SQL As String)是已经定义好的执行SQL的函数 里面写了conn.Execute SQL这个时候一旦执行了 是否就已经执行了更新操作？后面就用不着 Recordset.fields("PWD") = text1.text Recordset.update 这两句是不是多余了？你那个实现了删除之后 要想在表里面看见删除之后的效果 必须从新执行一次select SQL语句up