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

check out the Properties on your list box... how many columns have you got? Sounds like 1 to me, change this to 3.

You will also maybe want to put a "; " at the start/end of each row?

I would suggest building your header string from the pre-populated contents of the rowsource and basically adding to it with your code, something like... (assuming your rst is already setup and called "rst")...

dim strRowSource as string
dim strLineItem as string

strRowsource = form!lstPlayers.RowSource
strLineItem = ""

do until rst.eof
 strlineitem = strlineitem & "; " & rst("playerno") & ";" & rst("initials") & ";" & rst("name")
 rst.moveNext
loop

strRowSource = strRowSource & strLineItem
forms!lstPlayers.RowSource = strRowSource



Putting the "; " at the start of the line and not the end means you won't get a "phantom" null after the last record.