Cara vc pode fazer assim:
Do
Set Atualizar = Bancodados.OpenRecordset("Tabela", dbOpenDynaset)
If (Atualizar.EOF Or Atualizar.BOF) Then
Atualizar.Close
Msgbox "Tabela vazia"
Exit Do
End If
Atualizar.Delete
Atualizar.Close
Loop
Esse código é para DAO. Se registra no site para ficar mais fácil para gente te responder.
Obs. Desse jeito vaio ser apagado todos os campos da tabela, se vc quiser apagar somente um campo vc utiliza assim:
Set Atualizar = Bancodados.OpenRecordset("Tabela", dbOpenDynaset)
Atualizar.MoveMin
Do
Atualizar.edit
Atualizar("Semana'") = " "
Atualizar.Upadate
Atualizar.movenext
If Atualizar.EOF Then
Exit do
end if
Loop
T+
