VB databaser.

Jag håller på att göra ett program som man kan använda för att söka i databaser(access). För att kunna använda vilken databas som helst skulle jag vilja koppla labels till fältnamnen i min databas. Jag använder mig av adodc kontroll och en datagrid .
Min fråga lyder alltså:
Hur ska jag komma åt fältnamnen i databasen från VB?

Tack på förhand

Den här koden lägger till alla fältnamnen i tabellen till en list box.

Dim rec As New ADODB.Recordset
Dim sql As String
Dim antal_faelt As Integer
sql = "SELECT * FROM tabellen"

rec.Open sql, koppling
antal_faelt = rec.Fields.Count

For i = 0 To antal_faelt - 1

List1.AddItem rec.Fields(i).Name

Next i

Tackar det fungerade bra med lite modifieringar.

antal_faelt = adoAdresser.Recordset.Fields.Count
For i = 0 To antal_faelt - 1
    lstFalt.AddItem adoAdresser.Recordset.Fields(i).Name
Next i