ayuda urgente llenar un reporte en tiempo de ejecucion en crystal report

[OYEME]

hola amigos tengo un porblema tengo una tabla aritculos (art_codigo y art_nombre) y quiero hacerle un reporte desde vb
miren el reporte lo cree en el mismo vb con el RDC y cuando lo cree
agregue 2 campos no enlazados (campo1 y campo2) el reporte se llama reporte2

luego en visual basic tengo un codigo 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
Screen.MousePointer = vbHourglass
MiReporte.Database.SetDataSource rs
MiReporte.Campo1.SetUnboundFieldSource "art_codigo"
MiReporte.Campo2.SetUnboundFieldSource "art_nombre"
CRV1.ReportSource = MiReporte
CRV1.ViewReport
Screen.MousePointer = vbDefault
Set rs = Nothing
End Sub

bueno el problema es que en la parte de Database.SetDatasource me sale le que estoy fuera del intervalo no si alguien me pued ayudar porfa quiero darle valores al reporte pero desde un boton en Vb no en el reporte

PD:
lo probe con
Mireporte.AddOLEDBSource cn, "articulos"
pero me sale el reporte vacio ayudenemeeeeeeeeeeeeeee
gracias de antemano

[jrp01]

checa esta respuesta que di hace rato espero que te ayude.

http://www.forosdelweb.com/f14/problemas-con-crystal-report-8-rdc-access-228647/

[OYEME]

gracias jrp01 pero una pregunta asi como yo lo hehecho cual es el error????'
asi no se puede hacer???

[jrp01]

A ver si te entendi bien quieres colocar 2 campos que no llenas en tu select ¿Verdad? otra cosa creaste un ODBC o utilizas archivos TTX para el reporte?

[OYEME]

mira loq ue he hecho es crear un reporte en vb poryecto-componentes-agragar crystal report asi como el datareport luego en la seccion de detalles jale campos no enlazados se llama campo1,campo2 y no he creado ningun odbc todo loq ueria hcer mediante programcion
Bueno jrpc01 muchas gracais por tu ayuda porbando y revisando ejemplos de difremnetes foros di con la solucion y es la siguiente

Dim MiReporte As New Reporte2
Private Sub Form_Load()
Dim cmd As New ADODB.Command
With cmd
.ActiveConnection = cn
.CommandType = adCmdText
.CommandText = "select * from articulos"
End With
Screen.MousePointer = vbHourglass
With MiReporte
.Database.AddADOCommand cn, cmd
.Txttitulo.SetText "Listado de Productos"
.Texto1.SetText "Codigo"
.Texto2.SetText "Nombre"
.Texto3.SetText "Stock"
.Campo1.SetUnboundFieldSource "{ado.art_codigo}"
.Campo2.SetUnboundFieldSource "{ado.art_nombre}"
.Campo3.SetUnboundFieldSource "{ado.art_stock}"
End With
CRV1.ReportSource = MiReporte
CRV1.ViewReport
Screen.MousePointer = vbDefault
Set cmd = Nothing
End Sub

necesitaba una variable de tipo command y pues me salio lo que queria

PD: sabes no encontre un ejemplo asi he tenido que armarlo entre tantos codigos que he visto = muhcas gracias jrpc01 y a todos

[OYEME]

hOLA OTRA VEZ YO
AHORA TENGO OTRO PROBLEMA
LO QUE PASA ES QUE YO TENGO UNA FACTURA Y EL DETALLE SE VA GUARDANDO EN UN RECORDSET TEMPORAL AL HACER CLIKC EN IMPIRMIR QUIERO QUE SE IMPRIMA ESOS DATOS EN EL REPORTE QUE HE HEHCO EN EL MISMO VISUAL BASIC (CRYSTAL REPORT) COMO YA LES DIJE EN LE REPORTE YA TENGO MIS CAMPO QUE NO ESTAN ENLAZADOOS Y EN LE REPORTE NO HE CREADO NINGUN ODBC TODO QUIERO HACERLO MEDIANTE PORGRAMACION
AYUDAAAAAAAAAAAAAAA

PD: UTILIZANDO ADDADOCOMMAND SE NECESITA UN COMMAND Y AHI SE NEVIA UN SELECT COMO CADENA PERO LO QUE QUIERO ES IMPRIMIR LOQ UE HAY EN UN RECORDSET PORFAVOR AYUDENMEEEEEEEEEEEE