ADO删除记录问题，急！！！

Question

想在增加记录时先删除表里的符合条件的历史记录（不用ado控件）----如：list1的文本为“销售部”，则删除表中部门为“销售部”的所有记录，下面是
简单代码，请高手指点！！！谢谢Dim db As ADODB.Connection
Dim rs As ADODB.RecordsetSet db = New ADODB.Connection
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + App.Path + "\**.mdb"
db.Open "Data Source=" + App.Path + "\**.mdb;"rs.Open "表名", db, adOpenStatic, adLockOptimistic  If rs!部门 = List1.text Then '删除所有为list1.text的部门记录
        rs.Delete adAffectGroup
        rs.Filter = qc1!bm = List1.text
        rs.UpdateBatch
        rs.Update
  end if

Answer 1

有时候我有些不明白，你为什么不用简单的SQL语句？？
M_temp = "delete from 表名 where 部门 = '" & List1.text & "'"
rs.Open M_temp, conn, adOpenKeyset
搞定了。