Populating a ListBox

I need a function which retrieves all the datas of a specific
field and add it to the listbox.?

This code below returns only the last data of the field :

Private Sub Cmd_onClick()
lstname.AddItem GetProdList()
End Sub

Public Function GetProdList() As Variant
Dim list As Variant
Set rsp = New ADODB.Recordset
rsp.Open "select * from product", cn, adOpenDynamic, adLockOptimistic
Do While Not rsp.EOF
list = rsp(0)
GetProdList = list
rsp.MoveNext
Loop
End Function

How do I proceed?
Note: I need to compulsorily use a function to do this.

Try something like

VB Code:

Private Sub cmdAddDates_Click()
Set rsp = New ADODB.Recordset 
rsp.Open "SELECT datefield FROM product", cn, adOpenDynamic, adLockOptimistic 
      Do While Not rsp.EOF 
           List1.Additem rsp(0)
           rsp.MoveNext 
      Loop 
End Sub

But I need to have it in a function and call it recursively.

Why?

You mean something like this?

VB Code:

Private Sub PopulateListBox (lst as ListBox)
Set rsp = New ADODB.Recordset 
rsp.Open "SELECT datefield FROM product", cn, adOpenDynamic, adLockOptimistic 
      Do While Not rsp.EOF 
           lst.Additem rsp("FieldName")
           rsp.MoveNext 
      Loop 
End Sub