Para conocer las tablas de la base de datos, puedes hacer:
Con ADOX:
Dim objCatalog As Catalog, objTable As Table
Set objCatalog = New Catalog
Set objCatalog.ActiveConnection = TuObjetoConnectionADO
For Each objTable In objCatalog.Tables
Set oRS=objConnection.Execute("SELECT COUNT(*) AS Cant FROM " & objTable.Name)
If oRS.Fields("Cant").Value=0 Then
' Primera opción
objConnection.Execute("DROP TABLE " & objTable.Name
' O, Seguda opción
objCatalog.Tables.Delete objTable.Name
End If
Next
Con OpenSchema de ADO:
Set objRecordset = TuObjetoConnection.OpenSchema(adSchemaTables)
Recorres ese recordset y procedes de la misma manera.