Retrieving Tables and Columns in a Database

This is how to retrieve tables & columns in the table from a database:

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set rs = con.OpenSchema(adSchemaColumns)

While Not rs.EOF
    Text1.Text = Text1.Text & rs!Table_Name & " - " & rs!COLUMN_NAME & vbCrLf
    rs.MoveNext
Wend