Visual Basic - visual y sql

Bueno mi problema es el siguiente como puedo añadir el resultado de un recorset a un listbox

muestro el exercicio

Dim rs As New ADODB.Recordset
Dim sql As String

Public Function conectat()
Label1.Caption = "Estat: Conectat"

rs.Open "Fleca", cn, addopendynamic, adLockOptimistic
rs.Close

sql = "Select Nom from Fleca"
rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic, adCmdText
'desearia añadir el resultado del ssql a un listbox
End Function

gracias

A continuación de cargar el recordset añades el siguiente código:
List1.Clear
rs.MoveFirst
Do Until rs.EOF
List1.AddItem rs.Fields(0) & vbTab & rs.Fields(1)
rs.MoveNext
Loop

prueba así:

do while not locrs.eof
LstConPriv.AddItem (locrs!Nom)
LstConPriv.ItemData(LstConPriv.NewIndex) = locrs!CodFleca 'la clave de tu tabla
locrs.MoveNext
loop

Ya funciona