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