Populate ListBox with RecordSet

[timorrill]

I am currently using the following code to populate a list box with the contents of an ADODB recordset:

Private Sub PopulateListBox()
    With Me.lboxRecords
        .ColumnCount = rsListBox.Fields.Count
        .Column = rsListBox.GetRows
        .ColumnHeads = True
    End With
End Sub

Is there a way to easily specify the column titles (I want the columns to have the same names that the fields in the recordset have)? Also, I'd like to automatically resize the ListBox so that it shows all the fields at once (i.e., no horizontal scroll bars). How about code for this?

 

[RoryA]

The only way to populate the headers of a listbox is to put the data into a worksheet and use the listbox's Rowsource property to populate the data (the headers come from the row above the Rowsource). Your alternative is to add label controls above the listbox and size and change the captions as required.
To autofit the columns you would need to know the longest item in each column and then, unless you are using a fixed-width font, you would need API calls to work out the length required, which would, IMO, be horribly complicated.