Hola:
Prueba a poner esto, en donde pones Dim pon Set:
Set conn As adodb.Connection
Private Sub Command1_Click()
Set conn As New adodb.Connection
Set TablesSchema As adodb.Recordset
Set ColumnsSchema As adodb.Recordset
Espero que te sirva
Saludos
Ana