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:

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.

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

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

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

        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.

Es muy raro.
Seguro que es un ListBox?
Yo acabo de probar esto:
En el Form1 tengo este command

Private Sub Command1_Click()
   Form2.PRUEBA Me.List1
End Sub

y en el Form2 tengo esto

Public Sub PRUEBA(ByRef LSB As ListBox)
  LSB.AddItem 22332
  LSB.AddItem "Prueba"
End Sub

Y el listbox recibe las dos líneas sin problemas.

Prueba a convertirlo en cadena:

 Lsb.AddItem cStr(Rs.Fields(0).Value)

Suerte

Si lo pasas ByVal los cambios no afectan al ListBox original.

Saludos

Prueba con cStr()

Prueba quitando el ByRef, ya que si no pones nada es ByRef (yo por eso siempre pongo byval a casi todo)

Prueba cambiando la declaracion en lugar de declararlo como ListBox hazlo como Variant o como Object (como Variant no se si lo pillara)

Si se me ocurre algo mas ya te aviso

Suerte

Hay que echarle imaginacion y no darse por vencido