ByRef a Objecto ListBox

[Miseryk]

Tengo este simple código sólo que ahora me la paso más en C# y no recuerdo bien como es en VB.

Tengo una función donde realizo una petición a la base de datos en SQL Server, esta ahi excelente. Pero necesito que desde esa misma función lo cargue a un ListBox, tengo lo siguiente:

Código (vb, 4) [Seleccionar] Expandir

Public Sub LoadHours(txtFecha As String, txtTarjeta As String, ByRef Lsb As ListBox)
' [SNIP]
       Do While Not Rs.EOF And Not Rs.BOF
           Lsb.AddItem Rs.Fields(0).Value
            ' Sí lo muestro en un MsgBox se ve correctamente los datos de la DB
           Rs.MoveNext
       Loop
' [SNIP]
End Sub

Se supone que al pasarlo como ByRef me tomaría el objecto del formulario e ingresaría los valores de la función dentro del ListBox.

Código (vb) [Seleccionar] Expandir

Call LoadHours(Me.txtFecha.Text, Me.txtTarjeta.Text, Me.lsbHoras)

El caso es que me dice: No coinciden los tipos.

[BlackZeroX]

No creo ya que realizo la prueba basica y no me funciona, por ejemplo:

Código (vb,3) [Seleccionar] Expandir

        Do While Not Rs.EOF And Not Rs.BOF
            'Lsb.AddItem Rs.Fields(0).Value
            Lsb.AddItem "1"
            Rs.MoveNext
        Loop

A lo que me refiero es que funciona todo correctamente, menos cuando paso or ByRef el objecto ListBox.

Castealo... por Evil cast no recuerdo que

Código (vb) [Seleccionar] Expandir


Lsb.AddItem "" & Rs.Fields(0).Value


Dulces Lunas!¡.