CrystalDecisions.CrystalReports.Engine.ReportDocum ent only generating one page

[Matthew Butler]

I am creating a datable applying it to the reportdocument but when i export
it there is only one page?

can someone advise as to what i am missing.

my code is as follows:

Dim CrystalDS As New DataTable

CrystalDS.Columns.Add("DEBTOR", System.Type.GetType("System.String"))

CrystalDS.Columns.Add("DEBTORSURNAME", System.Type.GetType("System.String"))

CrystalDS.Columns.Add("ADDRESS1", System.Type.GetType("System.String"))

CrystalDS.Columns.Add("ADDRESS2", System.Type.GetType("System.String"))

CrystalDS.Columns.Add("ADDRESS3", System.Type.GetType("System.String"))

CrystalDS.Columns.Add("CITY", System.Type.GetType("System.String"))

CrystalDS.Columns.Add("COUNTY", System.Type.GetType("System.String"))

CrystalDS.Columns.Add("POSTCODE", System.Type.GetType("System.String"))

CrystalDS.Columns.Add("TELEPHONE", System.Type.GetType("System.String"))

Dim AddRow(8) As String

AddRow(0) = "MR":AddRow(1) = "BUTLER":AddRow(2) = "4 MILLMEAD":AddRow(3) =
"":AddRow(4) = "":AddRow(5) = "BYFLEET":AddRow(6) = "SURREY":AddRow(7) =
"KT14 7DA":AddRow(8) = "07949938386"

CrystalDS.Rows.Add(AddRow)

AddRow(0) = "MRS":AddRow(1) = "SMART":AddRow(2) = "4 MILLMEAD":AddRow(3) =
"":AddRow(4) = "":AddRow(5) = "BYFLEET":AddRow(6) = "SURREY":AddRow(7) =
"KT14 7DA":AddRow(8) = "01483825765"

CrystalDS.Rows.Add(AddRow)

Dim reportDocument1 As New
CrystalDecisions.CrystalReports.Engine.ReportDocum ent

With reportDocument1

..Load("C:\OfferArrears.rpt",
CrystalDecisions.Shared.OpenReportMethod.OpenRepor tByDefault)

..SetDataSource(CrystalDS)

..Refresh()

..ExportToDisk(CrystalDecisions.Shared.ExportForma tType.PortableDocFormat,
"C:\EXPORT.PDF")

..Close()

End With