Creating a Crystal Report with out using a database

Hi guys

I know how to create a report using a DB, but for something that i want to do doesn't need to be put into a DB. I have an order form with five TextBoxes.
I created a blank CrystalReport.rpt and inserted 5 textboxes on there. How can i have the text thats on the textboxes on the orderform and insert that text into the textboxes on the report. Here is a little bit of the code.

Code:

---

Imports CrystalDecisions.CrystalReports

---

Then on a print button i have

Code:

---

dim Order as CrystalReport = new CrystalReport

---

I don' know how to get or set the properties of the text on the crystal report

Instead of text boxes on the report, use parameters and pass the value from the text boxes on the screen to the parameter fields in the report.

Code:

---

Set Report = crxApplication.OpenReport("Z:\DAD\BOLSamples.rpt", 1)
For Each crxDatabaseTable In Report.Database.Tables
    crxDatabaseTable.ConnectionProperties("user id") = "sa"
    crxDatabaseTable.ConnectionProperties("Password") = myPasswordTechniSQL
Next crxDatabaseTable
Report.PaperOrientation = crDefaultPaperOrientation
'parameters
Report.ParameterFields.ITEM(1).AddCurrentValue Trim(txtCustomer.Text)
Report.ParameterFields.ITEM(2).AddCurrentValue Trim(txtShipDate.Text)
Report.ParameterFields.ITEM(3).AddCurrentValue Trim(txtBOL.Text)
Report.ParameterFields.ITEM(4).AddCurrentValue Trim(txtShipToName.Text)
Report.ParameterFields.ITEM(5).AddCurrentValue Trim(txtShipToAddress.Text)
Report.ParameterFields.ITEM(6).AddCurrentValue Trim(txtShipToCityStateZip.Text)
Report.ParameterFields.ITEM(7).AddCurrentValue Trim(txtQty1.Text)
Report.ParameterFields.ITEM(8).AddCurrentValue Trim(txtQty2.Text)
Report.ParameterFields.ITEM(9).AddCurrentValue Trim(txtQty3.Text)
Report.ParameterFields.ITEM(10).AddCurrentValue Trim(txtQty4.Text)
Report.ParameterFields.ITEM(11).AddCurrentValue Trim(txtDescr1.Text)
Report.ParameterFields.ITEM(12).AddCurrentValue Trim(txtDescr2.Text)
Report.ParameterFields.ITEM(13).AddCurrentValue Trim(txtDescr3.Text)
Report.ParameterFields.ITEM(14).AddCurrentValue Trim(txtDescr4.Text)
Report.ParameterFields.ITEM(15).AddCurrentValue Trim(txtShipVIA.Text)
Report.ParameterFields.ITEM(16).AddCurrentValue Trim(txtWeight.Text)
Report.ParameterFields.ITEM(17).AddCurrentValue Trim(txtClass.Text)
Report.ParameterFields.ITEM(18).AddCurrentValue Trim(txtNotes.Text)
Report.ParameterFields.ITEM(19).AddCurrentValue Trim(txttpName.Text)
Report.ParameterFields.ITEM(20).AddCurrentValue Trim(txttpAddr1.Text)
Report.ParameterFields.ITEM(21).AddCurrentValue Trim(txttpAddr2.Text)
Report.ParameterFields.ITEM(22).AddCurrentValue Trim(txttpCityStateZip.Text)
If Option1.Value = True Then
    Report.ParameterFields.ITEM(23).AddCurrentValue "X"
    Report.ParameterFields.ITEM(24).AddCurrentValue ""
    Report.ParameterFields.ITEM(25).AddCurrentValue ""
ElseIf Option2.Value = True Then
    Report.ParameterFields.ITEM(23).AddCurrentValue ""
    Report.ParameterFields.ITEM(24).AddCurrentValue "X"
    Report.ParameterFields.ITEM(25).AddCurrentValue ""
ElseIf Option3.Value = True Then
    Report.ParameterFields.ITEM(23).AddCurrentValue ""
    Report.ParameterFields.ITEM(24).AddCurrentValue ""
    Report.ParameterFields.ITEM(25).AddCurrentValue "X"
End If

---