Visual Basic - Generar un diccionario de datos

Hola saludos..

Alguien que me pudiera decir si existe la posibilidad de generar en visual basic 6.0 un reporte de la estructura de una base de datos, es decir, el nombre de las tablas que contiene, sus relaciones sus campos y tipos de datos, asi como su tamaño ocupado en disco actualmente..
La base de datos esta creada en access.

gracias por su ayuda.
un saludo

Private Sub Command1_Click()
For i = 0 To Data1.Database.TableDefs.Count
'nombre de cada una de las tablas
List1.AddItem Data1.Database.TableDefs(i).Name
'numero de campos de la tabla i
List1.AddItem Data1.Database.TableDefs(i).Fields.Count
'numero de Registros
List1.AddItem Data1.Database.TableDefs(i).RecordCount
'ultima actualizacion
List1.AddItem Data1.Database.TableDefs(i).LastUpdated
' y puedes obtener mas informacion prueba
Next
End Sub