Argumentos

Hola intman, estoy probando a pasar argumentos a un procedimiento por referencia y por valor. Con las variables normales no tengo problema funciona, pero no me funciona cuando el argumento que paso es un objeto, por ejemplo un recordset. Los objetos no se pueden pasar por valor?porque me modifica el recordset inicial.
Muchas gracias por tu atención.

estoy probando este código, y aún pasándolo por valor las modificaciones que hago en el procedimiento me modifican el recordset inicial. Podrías decirme dónde tengo el fallo, por favor?

Private Sub Form_Load()
Dim strCadena As String
Dim rsRecord As ADODB.Recordset

Set rsRecord = New ADODB.Recordset

strCadena = "SI"
rsRecord.Fields.Append "C1", adChar, 2
rsRecord.Open
rsRecord.AddNew "C1", "SI"
rsRecord.Update

Pasar strCadena, rsRecord

MsgBox strCadena
MsgBox rsRecord.Fields(0).Value


Unload Me

End Sub

Private Sub Pasar(ByVal strCad As String, ByVal rsRec As ADODB.Recordset)
strCad = "NO"

MsgBox rsRec.Fields(0).Value
rsRec.Fields(0).Value = "NO"
rsRec.Update

End Sub

Muy Bien. Me ha sido de gran utilidad