Saber si existe una tabla dentro de una BD

[Skalitiko]

Puedes utilizar la referncia ADOX. Para agregar la referencia, debes ir al menu proyecto, referencias y ahi seleccionar Microsoft Ado Ext. 2.5 for Dll and security.

Aqui tienes un pequeño ejemplo.

Private Sub Command1_Click()
Dim Cat As New ADOX.Catalog
Dim Tbl As New Table
Dim TablaABuscar As String
Cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\paso\Base.mdb;Persist Security Info=False"
TablaABuscar = "Tabla1" 'Nombre de la tabla que quero verificar
For Each Tbl In Cat.Tables
If Tbl.Name = TablaABuscar Then
MsgBox "La tabla " & TablaABuscar & " Existe en la bd", vbInformation
End If
Next Tbl
End Sub