Private Sub Command2_Click()
Rem fetch
Me.List10.RowSource = ""
rst.Open "select * from Qns_Table", cn
rst.MoveFirst
Do While Not rst.EOF
    Me.List10.AddItem rst!QnsID
    'Me.List10.AddItem rst!Question
    rst.MoveNext
Loop
rst.Close
End Sub



is there anyway that i can have my QnsID and Question displayed in seperate column of the List10 (list box)?

i've tried something out of the world and here goes...
Me.List10.Column(0).AddItem rst!QnsID
Me.List10.Column(1).AddItem rst!Question

of course, it isn't suppose to work =P

can someone advice me on this?

Thanks

Astro

set the Columns property of the list box to something different than 1, and use vbTab to separate the columns when you add an item, like

list1.add "first" & vbtab & "second"

if you neeed more control on the layout, I suggest you switching from the ListBox to the ListView in report mode.

Marco

You Can Use your code such as following:

Me.List10.ColumnCount = 2
Me.List10.RowSourceType = "Value list"
Me.List10.ColumnWidths = "Xcm;Ycm" ' X & Y :any size



Private Sub Command2_Click()
Rem fetch
Me.List10.RowSource = ""
rst.Open "select * from Qns_Table", cn
rst.MoveFirst
Do While Not rst.EOF
    Me.List10.AddItem rst!QnsID & ";" & rst!Question
    rst.MoveNext
Loop
rst.Close
End Sub

This Method Creates 2 column separately. ;)