'Пример:  'ClearTable "MyTable" - будет очищена вся таблица.  

    'ClearTable "MyTable.ID FROM MyTable WHERE MyTable.Field1=TRUE;" 

    'будут  удалены только те записи, где значение поля Field равно  'True    

    '********************************* 

    Public Sub ClearTable(Name As String)

     Dim S1 As Recordset  

     Set S1 = CurrentDb.OpenRecordset(Name, dbOpenDynaset)  

         Do Until S1.EOF  

            S1.Delete 

            S1.MoveNext  

        Loop  

       Set S1 = Nothing  End Sub  

    '*****************************************