Visual Basic - problemas recordset con instruccion sql en records

Hola, llevo varios días buscando manuales sobre el manejo de datareport, pero no encuentro nada. Bueno, sí he encontrado, pero básico y todo en tiempo de diseño pero yo lo necesito con código y crear un enlace en tiempo de ejecución.

Tengo un formulario con varios combos donde el usuario decide lo que quiere mostrar. Después hago una consulta sql, que siempre será distinto el resultado y posteriormente lo guardo en un recorset y lo imprimo por pantalla. los campos a mostrar son los mismos siempre pero claro, varía el resultado y la sentencia, porque la sentencia la tengo anidada en función de lo que elijan. Bueno hasta aquí bien. el problema es decirle al datareport que cambie el datamember y los datos a mostrar.

se lo intento pasar así: DataEnvironment3.Commands("Consulta").CommandText = recordset

ahí vale, no me da error, pero a partir de ahí me pierdo. necesito ayuda, de un manual o algo. gracias

Private Sub Command2_Click()
imprimecli
End Sub

ACA HAGO LA CONSULTA A LAS TABLAS PARA IMPRIMIR LOS DATOS Q NECESITO NO
Public Sub imprimecli()
Dim lblx As RptLabel
query ("Select idcliente,apellido,nombre,direccion,tel,tel2,email,locali from cliente order by idcliente")
'Formatlabel dtrreque.Sections(1).Controls(4), "lblx" & nro_print
End Sub

ACA ABRO EL RECORDSET
Private Sub query(sql2 As String)
If rsdyn.State = 1 Then rsdyn.Close
rsdyn.Open sql2, cn, adOpenForwardOnly, adLockReadOnly
printer
End Sub

ACA ESTABLESCO LA PROPIEDAD DATASOURCE DEL DTREPORT EN CERO
Y LUEGO CON UN FOR ESTABLESCO EL VALOR DE CADA CAMPO A CADA TEXTBOX DEL REPORTE
Private Sub printer()
Dim i As Integer
With dtrcli
Set .DataSource = Nothing
.DataMember = ""
Set .DataSource = rsdyn.DataSource
With .Sections("Section1").Controls
For i = 1 To .Count
If TypeOf .Item(i) Is RptTextBox Then
'The datamember should be always blank while creating dynamic data reports
.Item(i).DataMember = ""
.Item(i).DataField = rsdyn.Fields(i - 1).Name
End If
Next i
End With
.Show
End With

End Sub
Private Sub Form_Load()
If clien Then
selec = True
End If

End Sub
FIJATE Y AVISA SINO TE MANDO UN EJEMPLO

ACA PREGUNTO YO

¡SABES LO QUE ESTAS RESPONDIENDO?

O MEJOR MANO

¡SABES LO QUE SE HA PREGUNTADO?

pancho que nombre alucibo, porque sos un pancho realmente ahora en la consulta me pregunta como hacer una impresion en datareport en modo ejecucion nose que ves de diferente a la pregunta y en todo caso en ves de poner pabadas porque no respondes y listo.
Oviamente no sabes un carajo, suerte loserrrrrrrrrrrrrrrr