Cita:
Iniciado por PabloP1 Public Function dameEsteID(ByVal id As Integer) As ADODB.Recordset
Dim sql_id As String
sql_id = "Select * from articulos where id = " & id
Rs_Articulo.Open sql_id, Con.Conexion, adOpenDynamic, adLockOptimistic
dameEsteID = Rs_Articulo.Clone ' devuelvo el recordset
Rs_Articulo.Close
End Function
Tamien podes probar sin el
SET, asi:
Saludos