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

[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