Urgente Llenar Crystal Report Con Un Recordset

[OYEME]

OTRA VEZ YO UNA AYUDA ES QUE TENGO UN PROBLEMA TENGO QUE IMPRIMIR LOS DATOS QUE HAY EN UN RECORDSET
MAS O MENOS EL CODIGO QUE TENGO ES ASI:
Dim MiReporte As New Reporte2
Private Sub Form_Load()

Dim RS As New ADODB.Recordset
RS.CursorLocation = adUseClient
RS.Open "SELECT * FROM ARTICULOS", cn, adOpenStatic, adLockOptimistic
MiReporte.Database.SetDataSource RS
MiReporte.Campo1.SetUnboundFieldSource "{ado.art_codigo}"
MiReporte.Campo2.SetUnboundFieldSource "{ado.art_nombre}"
MiReporte.Campo3.SetUnboundFieldSource "{ado.art_stock}"
CRV1.ReportSource = MiReporte
CRV1.ViewReport
Set RS = Nothing
End Sub


AHORA EL PROBLEMA ME DA CUANDO PONGO MiReporte.Database.SetDataSource RS ME IMAGINO QUE SALE POR QUE NO HIZE NINGUNA CONEXION AL REPORTE EN TIEMPO DE DISEÑO LE AGREGUE CAMPOS NO ENLAZADOS Y QUIERO CONECTARME DESDE VB
PORFA ES URGENTE AQUIN SEA ES MUY URGENTE (POR SIACASO EL REPOPRTE LO CREE DENTRO DEL VB)

PD: CON ADDADOCOMMAND ME SALE PERO AHI SE LE ENVIA UNA CADENA PARA CARGAR EL REPORTE Y YO NO QUIERO ESO YO TENGO UN RECORDSET Y QUIERO IMPRIMIR ESE RECORDSET

GRACIAS DE ANTEMANO