Visual Basic - enviar un recordset a funcion

HOla que tal

lo que sucede es que tengo un recorset el cual necesito pasaselo a otra funcion en un modulo, con que sentencia realizo esto

FORMULARIO
Dim RestD As ADODB.Recordset
Set RestD = CreateObject("ADODB.Recordset")
Set RestD = InfoOrdenFacturacion() ' se llena el recorset
Call OrdenDespacho(fechacorta, hora, Npro, RestD)

EN OTRO MODULO

Public Sub OrdenDespacho(ByVal fch As String, ByVal hra As String, ByVal numProv As Integer, ByVal rs As ADODB.Recordset)

If Not rs.BOF Then
rs.MoveFirst
End If
If TypeName(rs) <> "Nothing" Then
If Not rs.EOF Then

While Not rs.EOF
linea = ""
linea = linea + Trim(rs("IDCOMPRA").Value) + ";"
rs.MoveNext
Wend
end if
end if

rs quien es quien recibe el recorset enviado esta definido con ADODB.Recorset pero no funciona probe con definirlo como Variat pero tampoco se cae al momento de recorerlo

ojala alguien me pueda ayudar

Saludos

Intenta declararlo así:
Public Sub OrdenDespacho(ByVal fch As String, ByVal hra As String, ByVal numProv As Integer, ByRef rs As ADODB.Recordset)

Esto es por que si pasas un parámetro ByVal, genera una nueva instancia en memoria para tener la custodia de los valores que pasas, mientras que ByRef utilizaría la misma instancia de memoria que tiene el recordset original.
O también puedes optar por generar el recordset en el otro módulo.

Espero que te sirva.

Saludos.