Как удалить все записи в таблице

Если у Вас уже есть глобальная переменная, связанная с открытой базой данных, то можно воспользоваться следующей функцией для удаления всех записей в таблице ( DB это объект базы данных ):

Function ZapTable(sTable As String, _
	Optional sWhere As String = "") As Integer
	Dim sSQL As String
	On Error GoTo Err_ZapRecs
	' For Access Apps only:
	' docmd.SetWarnings False 
	sSQL = "DELETE * FROM " & sTable & " "
	If sWhere <> "" Then
		sSQL = sSQL & "WHERE " & sWhere 
	End If
	DB.Execute sSQL, dbFailOnError
	'docmd.SetWarnings True
	ZapTable = True
Exit_ZapRecs:
	Exit Function
Err_ZapRecs:
	ZapTable = False
''ERROR HANDLING IF DESIRED
	Resume Exit_ZapRecs
End Function

А вот так эта функция вызывается:

If Not ZapTable("locLookup") Then
	MsgBox "Cannot delete Table."
End If

Или:

If Not ZapTable("locCities", "STATE = 'NY'") Then
	MsgBox "Cannot delete Table."
End If