[' Удалить объект базы данных. strDelName - что удалить - имя, strContainerName = Tables, intContainerType = acTable, acQuery
Function DeleteObject(strDelName As String, strContainerName As String, intContainerType As Integer)

'Удалить объект базы данных.

Dim dbs As Database, ctr As Container
Dim intX As Integer

Set dbs = CodeDb
Set ctr = dbs.Containers(strContainerName)

For intX = 0 To ctr.Documents.Count - 1
If ctr.Documents(intX).NAME = strDelName Then
DoCmd.DeleteObject intContainerType, ctr.Documents(intX).NAME
Exit For
End If
Next intX

Set ctr = Nothing
Set dbs = Nothing

Set dbs = CurrentDb
Set ctr = dbs.Containers(strContainerName)

For intX = 0 To ctr.Documents.Count - 1
If ctr.Documents(intX).NAME = strDelName Then
DoCmd.DeleteObject intContainerType, ctr.Documents(intX).NAME
Exit For
End If
Next intX

Set ctr = Nothing
Set dbs = Nothing

End Function]

Специально для -> Serge Gavrilov :)), вообщем мозги нужно хоть когда-нибудь напрягать, не нужно никаго личить уважаемый!!!
Я привел код который нужно немного подправить вместо Set dbs = CodeDb
написать Set dbs = DBEngine.OpenDatabase("C:\base.mdb")