How to output records into list box with 3 coloum headings

[tony007]

Hi every one. i want out put records into a list box with 3 column headings named as playerno, initials and name. The way i created the list box is by putting list value for the row source type and name the list box as lstPlayers. But unfortunately get all the the records Fields one after one not one row at a time. I be happy if some one tell how to fix this .Thanks


Private Sub cmdSelect_Click()

Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cn.Open ("Provider=MicroSoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\db.mdb")

rst.Open "select playerno, initials, name from players order by name, initials", cn
rst.MoveFirst

Do Until rst.EOF
lstPlayers.RowSource = lstPlayers.RowSource & ";" & _
rst("playerno") & ";" & rst("initials") & ";" & rst("name")

rst.MoveNext
Loop
'TextBox = lstPlayers
'MsgBox (playerno)
rst.Close
cn.Close
End Sub