Instrucción para ver existencia de tabla en BD?

[ciberpato]

Bueno ya lo encontré y se los dejo por si alguien lo necesita:

Function ReportFileStatus(filespec)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
msg = filespec & " exists."
Else
msg = filespec & " doesn't exist."
End If
ReportFileStatus = msg
End Function