Imprimir texbox en un datareport

[spiderman78]

Que tal como estan, tengo un problemita, lo q estoy tratando de hacer es tengo un formulario con 6 textbox en los cuales escribo y selecciono cierta informacion para ser mas explicito es una receta, lo q neceito hacer es imprimir esos datos en un data report q ya tengo diseñado pero no se como hacer el enlace, investigando llegue a este codigo pero no me funciona

Código:

Private Sub ConsultaReceta()
    Dim sql As String, cadena As String
    Call VisualizarReceta
    cadena = Text1(3).Text
        sql = "SELECT receta,fecha,nombre,apellidos,proxima FROM receta WHERE idpaciente Like '" & cadena & "' "
    Set receta1 = New ADODB.Recordset
        receta1.Open sql, BD, adOpenKeyset, adLockOptimistic
End Sub

Private Sub Imprimir()
  Call ConsultaReceta
    DataReceta.Sections("section1").Controls.Item("Text2").DataField = "receta"
    DataReceta.Sections("section1").Controls.Item("text3").DataField = "fecha"
    DataReceta.Sections("section1").Controls.Item("text4").DataField = "nombre"
    DataReceta.Sections("section1").Controls.Item("text5").DataField = "apellidos"
    DataReceta.Sections("section1").Controls.Item("text6").DataField = "proxima"
  Set DataReceta.DataSource = receta1
    DataReceta.Show
End Sub

y la verda ya no tengo idea de como podria solucionar este problema.......... de antemano muchas gracias por las respuestas

saludos