Comparación de tablas y procedimientos... ayuda.

[lokoman]

Hola!!!

Para obtener los nombres de las tablas de una BD, puedes usar el siguiente query:
SELECT Name FROM NOMBRE-BD.DBO.sysobjects WHERE (xtype = 'U')

Una vez obtenidos los nombres de las tablas, puedes obtener los nombres de los campos a traves de un recordset:
RSDATA.Source = "SELECT * FROM NOMBRE-BD.DBO.NOMBRE-TABLA"
RSDATA.Open , CONEXION, adOpenForwardOnly, adLockReadOnly

Listando los nombres en un listbox:
LISTBOX.Clear
For Each Column In RSDATA.Fields
LISTBOX.AddItem Column.Name
Next

Espero que te ayude!!