Как слепить форму с параметрами для отчета на Crystal Report? - VB

rptControl.WindowLeft = 0
rptControl.WindowTop = 0
rptControl.WindowState = crptMaximized
rptControl.Connect = "dsn=" & server & ";uid=" & user & ";dsq=" & base & ";"
If Option1.Value = True Then ' если печать в файл
   rptControl.Destination = crptToFile
   rptControl.PrintFileType = crptText
   rptControl.PrintFileName = App.Path & "report" & CStr(Day(Date)) & ".txt"
    Else ' если печать на экран
   rptControl.Destination = crptToWindow
   rptControl.PrintFileType = crptRecord
End If
   rptControl.ReportFileName = App.Path & "report.rpt"
    
rptControl.Action = 1
If Option1.Value = True Then
        rptControl.Reset
End If