Dim Sql_Cancel As StringSql_Cancel = "select* from 参照表 where 材料='" & (Cmb_Material.Text) & "' and 厚度 =clng('" & (Cmb_Depth.Text) & "')"Dim Rs_Cancel As New ADODB.RecordsetRs_Cancel.Open Sql_Cancel, conn, adOpenKeyset, adLockPessimisticIf Not (Rs_Cancel.EOF Or Rs_Cancel.BOF) Then ''''''''''''如果没有到达结尾 就找到了Rs_cancel.Delete''''即可删除当前记录MsgBox "哈哈，完成删除”Else ''''''''''''''''''''''''''''''''如果没有到达结尾 就找到了MsgBox "没有发现该项记录，无法完成删除！！"Exit SubEnd If ''''''''''''''''''''''''''''''如果没有到达结尾 就找到了Rs_Cancel.Update '''''不知道这一个是不是必须滴？Rs_Cancel.Close '''''