I am trying to delete specific records from a table using VBA.

I believe I have the SQL part of the coding, but I am not sure how to do the loop part of the coding.

VB Code:
  1. strSQL = "DELETE FROM tblAcct WHERE date = '1/1/06'"

  2. DoCmd.RunSQL

I'm not sure how to make the coding so it goes through every record. I know I need a loop, but not sure what to use for the condition.

Do Until ?????
code
Loop

On a side note the tblAcct on this access form is linked to another table on another access form. I don't know if that will effect anything, but thought I should mention it.