Como saber se existe uma tabela no banco de dados

Uma maneira simples é percorrer a coleção TableDefs do banco de dados. Por exemplo, a função a seguir devolve True se a tabela especificada for encontrada e False se não encontrar.

Autor: Dev Hashish

'******************** Início do código ************************
' Este código foi escrito originalmente por Dev Ashish.
' Ele não deve ser alterado ou distribuído,
' exceto como parte de um aplicativo.
' Use-o à vontade em qualquer aplicativo,
' desde que este aviso de copyright não seja alterado.
'
' Código cortesia de 
' Dev Ashish
'
'
Function fExistTable(strTableName As String) As Integer
Dim db As Database
Dim i As Integer
    Set db = DBEngine.Workspaces(0).Databases(0)
    fExistTable = False
    db.TableDefs.Refresh
    For i = 0 To db.TableDefs.Count - 1
        If strTableName = db.TableDefs(i).Name Then
            'A tabela existe
            fExistTable = True
            Exit For
        End If
    Next i
    Set db = Nothing
End Function
'******************** Fim do Código ************************