Problema al convertir de numeros a texto

[barbaglio]

tengo esta funcion

Private Function AutoCodigo(record As Recordset) As String

If record.BOF = True And record.EOF = True Then
If record = rsAddR Then
record!ID_Recibo = "1"
Else: recor!Cod_Venta = "1"
Else
record.MoveLast
If record = rsAddR Then
AutoCodigo = Str(Val(record!ID_Recibo) + 1)
Else: AutoCodigo = Str(Val(record!Cod_Venta) + 1)
End If
'Movemos al principio
record.MoveFirst
End If
End Function

tanto el record!ID_Recibo como el otro en la base de datos los tengo como texto. y al ejecutar en la llamada me dice que no coinciden los tipos la llamada es la siguiente

rsAddR!ID_Recibo = AutoCodigo(rsAddR)

Si m podeis decir que pasa os lo agradeceria.