How to show column headers in listbox from access database?

**Kiran2012** · 11-23-2012, 03:27 AM

Hi All,

My form is connected to Access db and extracts only 8 column details from a big table and display in a listbox. Everything is working fine.
How to show these particular column headers in listbox? Below is my code -

Set rs = New ADODB.Recordset
rs.Open "SELECT Emp_ID,Name,Facility_City_Role,BCM_Role,Designation,Cell_No,vNet,DL_Cog_All FROM DL_Mapping where Region in (" & Rglist & ") and Country in (" & CList & ") and City in (" & CityList & ") and Facility in (" & FacList & ") and Support_Function in (" & SFList & ")", Con, 1, 2
i = 0

Do While Not rs.EOF
ListBox1.AddItem rs.Fields("Emp_ID")
ListBox1.List(i, 1) = rs.Fields("Name")
ListBox1.List(i, 2) = rs.Fields("Facility_City_Role")
ListBox1.List(i, 3) = rs.Fields("BCM_Role")
ListBox1.List(i, 4) = rs.Fields("Designation")
ListBox1.List(i, 5) = rs.Fields("Cell_No")
ListBox1.List(i, 6) = rs.Fields("vNet")
ListBox1.List(i, 7) = rs.Fields("DL_Cog_All")
rs.MoveNext
i = i + 1

Loop
End If

**alansidman** · 11-23-2012, 10:56 AM

Create a new table with the header names as the field records. Use that has your record source for the listbox.

**JosephP** · 11-23-2012, 12:13 PM

are you talking about a form in excel or in access? if it is in excel then you will have to add the column names as the first row of data-you cannot make them real column headers

**Kiran2012** · 11-26-2012, 09:43 AM

Hi,

Thanks for the reply.
I am using vb - Alt F11 from Access 2007 and creating forms in this. Access is having a login page from which these vb forms will be called.

currently i have to extract 13 columns(from revised database) and display in a multi col listbox. But listbox is restricted to 10 columns. I need to change to Listview. I know how to add this ctrl in VB+Excel. But i am unable to add the correct reference file to add listview control from access vb(Alt+F11). How to do this?

Thanks
Kiran