Mostrar todos los objetos de una BD

[laulaurys]

Hola!

Estoy tratando de mostrar todos los objetos que tiene una BD access, lo estoy haciendo de la siguiente manera:

Option Explicit
Dim conn As adodb.Connection

Private Sub Command1_Click()

Dim conn As New adodb.Connection
Dim TablesSchema As adodb.Recordset
Dim ColumnsSchema As adodb.Recordset

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Prueba.mdb;Mode=Read|Write;Persist Security Info=False"

TablesSchema.Open
Set TablesSchema = conn.OpenSchema(adSchemaTables)
Do While Not TablesSchema.EOF

Set ColumnsSchema = conn.OpenSchema(adSchemaColumns, _
Array(Empty, Empty, "" & TablesSchema("TABLE_NAME")))
Do While Not ColumnsSchema.EOF
Debug.Print TablesSchema("TABLE_NAME") & ", " & _
ColumnsSchema("COLUMN_NAME")
ColumnsSchema.MoveNext
Loop
TablesSchema.MoveNext
Loop
End Sub

Private Sub Form_Load()
Set conn = New adodb.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Prueba.mdb;Mode=Read|Write;Persist Security Info=False"
End Sub

Y el error que me tira es el siguiente:
Run-time error '91':

Object variable or With block variable not set, y al depurar me pone el amarillo donde dice
TablesSchema.Open

Que me esta faltando? me ayudan porfis?

Graciassssss!, un beso, Laurys :)