这样能删除表中的记录吗？总是报错

Private Sub Toggle0_Click()

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("帐户")

do while Not rs.EOF 

        rs.Edit
        rs.delete
        rs.Update
           
Loop
rs.close
rs=nothing
end sub