Open schema column

[david maddison]

This is all on a button click
I have this half working i can display all tables in data base in combo1 then the bit i cant get to work is to display all columns in that table in to combo2 any ideas searched the web cant find any help on it


VB CODE
_______________________________________________
Set adox_Catalog = New ADOX.Catalog
Set adox_Catalog.ActiveConnection = cnn
For Each adox_Table In adox_Catalog.Tables
If UCase(Left(adox_Table.Name, 4)) <> "MSYS" Then
Combo1.AddItem adox_Table.Name
End If
Next adox_Table

____________________________________________________
END CODE