PASSAR TEXTBOX VB6 PARA CABE?ALHO CRYSTAL 8

TONINHOROQUE 01/08/2016 12:39:56
#465367

Caros amigos, bom dia.
Vou solicitar ajuda de voces novamente
Estou anexando um documento para maior clareza, mas tenho uma duvida
Tenho um form em vb6, onde preencho data inicial (text1.text) e data final(text2.text) para fazer o select no banco

Agora no cabeçalho, eu preciso mostrar estes dois textbox's.
Como faço isso?
Grato
Toninho

Meu codigo, onde chamo o crystal:

Private Sub Command2_Click()
Dim datainicio, datafinal As String
Dim rptdata As String
datainicio = Format(Text1, [Ô]yyyy,mm,dd[Ô])
datafinal = Format(Text2, [Ô]yyyy,mm,dd[Ô])
rptdata = [Ô]{abast.datanf}[Ô]

Dim rptselecao As String
[ô]rptselecao = [Ô]select * from mglrj.abast [Ô]
rptselecao = rptdata & [Ô] in Date([Ô] & datainicio & [Ô]) to Date ([Ô] & datafinal & [Ô])[Ô]
report1.ReportFileName = App.Path & [Ô]\abast.rpt[Ô]
report1.Connect = [Ô]DSN=ajr_mega.dsn;UID=mglrj;PWD=megalrj[Ô]
report1.WindowTitle = [Ô]vendas por data[Ô]
[ô]report1.SelectionFormula = rptselect
report1.SelectionFormula = rptselecao
report1.WindowState = crptMaximized
report1.Action = 1

End Sub