[求助]窗体删除当前记录问题

小宜

<>如何删除窗体当前选取的记录?而下面的代码始终册除的是第一个记录,谢谢!</P>
<>rivate Sub 删除记录_Click()<BR>On Error GoTo Err_删除记录_Click<BR>    Dim db As Database<BR>    Dim rs As DAO.Recordset<BR>    Set db = CurrentDb<BR>    Set rs = db.OpenRecordset("表1", dbOpenDynaset)<BR>        rs.Delete<BR>        rs.Close<BR>    Me![表1].Requery</P>
<P>Exit_删除记录_Click:<BR>    Exit Sub</P>
<P>Err_删除记录_Click:<BR>    MsgBox Err.Description<BR>    Resume Exit_删除记录_Click<BR>    <BR>End Sub</P>

hi-wzj

按钮向导，删除记录....拷贝代码，即可。