Visual Basic - Borrar tablas

Hola!! necesito recorrer una base mdb y borrar las tablas que no contengan registros.
alguien sabe como puedo hacer esto?

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.