ado and listboxes???

I am using vb6 and sql server 2000.
I am trying to put results from a query into a listbox when the form loads.

Here is my code:

I need to link the query results to listbox1.text???

Dim emplRS As New Adodb.Recordset

' sets the connection
Const connectStr = "Provider=SQLOLEDB.1;Data Source=MA0;database=ma00_app;uid=gsha;pwd=15;"

' set property to automatically create a connection
emplRS.ActiveConnection = connectStr

' open recordset with query for all records matching variable

emplRS.Open "select whsekey From timwarehouse where companyid = 'QCC' and whseid = '380'"

empirs.Close

my brain is not working, how do i link the query results to listbox1.text?

Thanks

VB Code:

Dim emplRS As New Adodb.Recordset
 
' sets the connection
Const connectStr = "Provider=SQLOLEDB.1;Data Source=MA0;database=ma00_app;uid=gsha;pwd=15;"
 
' set property to automatically create a connection
emplRS.ActiveConnection = connectStr
 
' open recordset with query for all records matching variable
 
emplRS.Open "select whsekey From timwarehouse where companyid = 'QCC' and whseid = '380'"
 
do while not emplRs.bof AND emplRs.eof
 
listbox1.additem emplRs.fields("nameoffield").value
emplRs.movenext
 
loop
 
emplRs.close

In between opening and closing the recordset, loop through the recordset and the items to the listbox.

VB Code:

emplRS.Open "select whsekey From timwarehouse where companyid = 'QCC' and whseid = '380'"
 
Do While Not emplRS.EOF
    List1.AddItem emplRS!whsekey
    emplRS.MoveNext
Loop
 
empirs.Close