Visual Basic - Ayuda sobre ADODB

Hola deseo que me ayuden en un problema:
Tengo una base de datos en Sql server 2000 y deseo saber como puede realizar una consulta de las tablas existentes en la base de datos si estoy programando en visual basic 6.0 utilizando una conexion ODBC, y el control adodb,

Tienes varias opciones, el método OpenSchema de ADO o ADOX.

Con OpenSchema de ADO:

Dim rst As Recordset

Set rst = TuObjetoConnection.OpenSchema(adSchemaTables)

Con ADOX:

Dim objCatalog As Catalog, objTable As Table, objColumn As Column

Set objCatalog = New Catalog
Set objCatalog.ActiveConnection = TuObjetoConnection

For Each objTable In objCatalog.Tables
Debug.Print objTable.Name
For Each objColumn In objTable.Columns
Debug.Print objTable.Name & vbTab & objColumn.Name
Next
Next

En http://www.able-consulting.com/ADOX_Faq.htm y en http://msdn.microsoft.com/library/en-us/ado270/htm/adoddlo1_1.asp tienes documentación de ADOX.

En http://msdn.microsoft.com/library/en-us/ado270/htm/mdamth03_4.asp tienes documentación de OpenSchema de ADO.