Existe la tabla en mi BD?

[Dans]

'Para el caso de DAO.
Dim dbBaseDatos As Database
Dim intContador As Integer
Dim tblTablas As TableDef

Set dbBaseDatos = OpenDatabase("C:\Ejemplo.mdb")
'''Puedes buscarla de esta manera
For Each tblTablas In dbBaseDatos.TableDefs
If UCase(tblTablas.Name) = UCase$("TablaaBuscar") Then
MsgBox "Existe"
Exit For
End If
Next tblTablas
'''O de esta otra
For intContador = 0 To dbBaseDatos.TableDefs.Count - 1
If UCase(dbBaseDatos.TableDefs(intContador).Name) = UCase$("TablaaBuscar") Then
MsgBox "Existe"
Exit For
End If
Next intContador

'Para ADO.
'Es necesario hacer referencia a Microsoft ADO Ext. 2.5 for DLL and Security
Dim cnBaseDatos As New ADODB.Connection
Dim dbBaseDatos As New ADOX.Catalog
Dim intContador As Integer

cnBaseDatos.CursorLocation = adUseClient
cnBaseDatos.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ejemplo.mdb;Persist Security Info=False"
dbBaseDatos.ActiveConnection = cnBaseDatos
For intContador = 0 To dbBaseDatos.Tables.Count - 1
If UCase$(dbBaseDatos.Tables(intContador).Name) = UCase$("TablaaBuscar") Then
MsgBox "existe"
Exit For
End If
Next intCiclo

Espero te sirva.