VB+access,在查找后得到的数据，如何删除？每次都是删除了第一条

我的查找程序： Private Sub find_Click() Dim rs As ADODB.Recordset If Text1.Text Like "[A-Z]####" <> True Then Text1.SetFocus Text1.Text = "" Exit Sub End If openDB Set rs = New ADODB.Recordset rs.Open "select * from jbinfo where ygbh='" & Text1.Text & " ' ", mydb1, adOpenKeyset, adLockPessimistic ' rs.find "select * from jbinfo where ygbh='" & Text1.Text & " ' ", mydb1, adSearchBackward If rs.EOF And rs.BOF Then Text1.SetFocus Text1.Text = "" MsgBox "该员工编号不存在，请重新输入！", vbOKOnly + vbExclamation, "警告" Exit Sub End If ygxm.Text = rs!ygxm ygbh.Text = rs!ygbh bm.Text = rs!bm xb.Text = rs!xb csny.Text = rs!csny jg.Text = rs!jg cjgz.Text = rs!cjgz jrgs.Text = rs!jrgs byxx.Text = rs!byxx xl.Text = rs!xl zy.Text = rs!zy bz.Text = rs!bz cmddel.Enabled = True cmddel.SetFocus End Sub

我的删除程序： Private Sub cmddel_Click() Dim response As Integer response = MsgBox("确定要修改这条记录？", vbYesNo, "警告") If response = vbNo Then Exit Sub With rs .Delete .MovePrevious If .EOF Then .MoveLast If .BOF Then .MoveFirst mydb1.Close End With display find.SetFocus Text1.Text = "" End Sub

Rs.Delete是删除当前记录

应该可以设指针指向具体某一条记录的，我记得不太清楚了，好像是rs.CursorLocation = adUseClinet,但是删除就不知道怎样做了，我也试过好多种方法，不行！！

干吗不先定位到你需要删除的记录在进行呢!DELETE没错呀!

rs.find "select * from jbinfo where ygbh='" & Text1.Text & " ' ", mydb1, adSearchBackward
  好像Recordset的find方法的条件是直接“ygbh='" & Text1.Text & " ' “这么写就可以，因为select * from jbinfo where ygbh='" & Text1.Text & " ' ", mydb1你这里就返回了记录集对象，find方法是在当前记录集里查找纪录。应该不需要在返回一个记录集对象了，所以可以“ygbh='" & Text1.Text & " ' “这么写查询条件，而且后面好像是少参数吧？记不太清楚了。