Deleta o conteúdo de todas as tabelas do Bd

Option Compare Database
Dim StrTabela As String

Private Sub Comando0_Click()
Call DeletaTabela
End Sub

Function DeletaTabela()
Dim dbs As Object
Dim T As DAO.TableDef
Dim tblNome As String
Dim I As Integer
Dim x As Integer
Dim db As DAO.Database
Dim StrSQL

    Set db = CurrentDb() 'para o access 2007
    Set dbs = Application.CurrentProject 'para o access 2000 e 2003

        'Leva o nome da tabela para a variável
        For I = 0 To db.TableDefs.Count - 1
            Set T = db.TableDefs(I)
                tblNome = T.Name
        If Not tblNome Like "msys*" Then
            StrTabela = T.Name
            StrSQL = "DELETE * FROM " & StrTabela & ""
            MsgBox StrSQL
            CurrentDb.Execute StrSQL
        x = x + 1
    End If
  Next I
End Function