Dim MyConn_Tempdb
Dim adoxCatalogX
Dim adoxTableX
Dim TableName

Set adoxCatalogX = CreateObject("ADOX.Catalog")
Set adoxCatalogX.ActiveConnection = MyConn_Tempdb
For Each adoxTableX In adoxCatalogX.Tables
If (adoxTableX.Type = "TABLE") And (adoxTableX.Name = TableName) Then
'该表存在
Exit For
End If
Next