Visual Basic - Recordset en funcion

Buenas gente, quisiera ver si me evacúan una duda: no puedo pasar un recordset por parámetro a una funcion por que me tira error de tipo, adjunto el ejemplo:

Private Sub Muestra (rs1 as adodb.recordset)

If rs1.RecordCount <> 0 Then
FrmPrinc.ListView1.ListItems.Clear
rs1.MoveFirst
Do While Not rs1.EOF
Set Items = FrmPrinc.ListView1.ListItems.Add(, , rs1.Fields(0) & "")
Items.SubItems(1) = rs1.Fields(1) & ""
Items.SubItems(2) = rs1.Fields(2) & ""
Items.SubItems(3) = rs1.Fields(3) & ""
Items.SubItems(5) = rs1.Fields(5) & ""
Items.SubItems(6) = rs1.Fields(6) & ""
Items.SubItems(7) = rs1.Fields(7) & ""
Items.SubItems(8) = rs1.Fields(8) & ""
Items.SubItems(9) = rs1.Fields(9) & ""
Items.SubItems(10) = rs1.Fields(10) & ""
rs1.MoveNext
Loop
End If
End Sub

Despues llamo a Muestra (rs1) y me salta el error. Si alguien tiene alguna solucion se lo agradecería mucho.

No hay ningún problema en colocar un Recordset como parámetro, pero en éste caso que se trata de un procedimiento y no de una función tendrías que llamarlo sin los paréntesis o bien con Call:

Muestra rs1

Call Muestra (rs1)

Muchas gracias, voy a intentarlo