No código:

 

Private Sub mnu_visualizar_impressao_Click()
CR1.Destination = 0
'CR1.DataField(0) = Banco de Dados....
CR1.ReportFileName = App.Path & "eport.rpt"
        CR1.Action = 1
End Sub

 

Eu queria substituir o banco de dados pelo meu Texto do FORM1.TEXT1.TEXT... Alguem sabe como fazer isso?

Alguem pode me ajudar?