Passing Value to Data Report

[saran_12345]

Hai Friends and Gurus,

Please tell how to pass the value to data report during run time.

 Private Sub Command2_Click()
Dim ssq   As String
   
    Set cn1 = New ADODB.Connection
    Set rse = New ADODB.Recordset

    cn1.Provider = "Microsoft.Jet.OLEDB.3.51;"
    cn1.ConnectionString = "Persist Security Info=false;" _
        & "Data Source=D:\postcost\inve.mdb"
    
    cn1.Open
    ssq = "Select * From inve where edate = # " & Text1.Text & " # "
    rse.Open ssq, cn1, adOpenDynamic, adLockOptimistic
    Set DataReport1.DataSource = rse
    DataReport1.Show
End Sub

While printing the Data Report - In the title the Text1.text's date value to be displayed.

Thanks in advance.
Saravanan.