sql = "SELECT * FROM tblMyTable WHERE {insert your where clause here}"
rst = CurrentDB.openRecordset(sql)
while not rst.EOF
sql = "INSERT INTO tblMyTable (field1, field2, field3) VALUES ('" & rst("field1") & "','" & rst("field2") & "','" & rst("field3") & "')"
CurrentDB.Execute sql...