Hent kolonneoverskrifter i mdb-tabel fra VB

Function fGetFldNamesADO()
Dim strStoreSQL As String
Dim i As Integer

strStoreSQL = "SELECT * FROM tblCustomers"

Dim adoCon As New ADODB.Connection
Dim adoRst As New ADODB.Recordset

Set adoCon = CurrentProject.Connection
   
adoRst.Open strStoreSQL, adoCon

            ' RS.Fields is the collection of fields associated with the recordset...
            ' The count given is correct, but since the fields are numbered
            ' starting at zero, we have to subtract one to get the maximal field number:
For i = 0 To adoRst.Fields.Count - 1
            ' Naturally, each element in the Fields collection is
            ' an ADODB.Field object. And the Field object has various
            ' properties, including Name:-
    MsgBox "Field Number >> " & i & " Field Name >>> " & adoRst.Fields(i).Name
Next

adoRst.Close
adoCon.Close

End Function

You will have to change line I think.

Set adoCon = CurrentProject.Connection

Thanks :)

hope you got something working.


thanks for the points