Retrieving Tables in a Database

This is how to retrieve all tables in a database:
Object needed:
A Textbox named Text1

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set rs = con.OpenSchema(adSchemaTables)
While Not rs.EOF
   If rs!Table_Type = "TABLE" Then Text1.Text = Text1.Text & rs!TABLE_NAME & vbCrLf
   rs.MoveNext
Wend