Pregunta abierta: ¿Cómo puedo eliminar todos los registros de mi base de datos?

Hola a todos, quiero eliminar todos los registros que tengo en mi base de datos al mismo tiempo, el código que yo tengo es el siguiente:Private Sub OKButton_Click()Set db = OpenDatabase(sPathBase)Set rs2 = db.OpenRecordset("Select * from Anticipo", dbOpenDynaset)If MsgBox("¿Está seguro de borrar los registros?", vbYesNo) = vbYes Then With rs2 .Delete MsgBox "Los registros han sido borrados" Load Frm_Inicio Unload Me Frm_Inicio.Show .MoveFirst End WithEnd IfEnd SubSi me funciona solo que elimina de uno por uno. ¿Qué tengo que hacer para que los elimine todos?de antemano muchas gracias!!! =)