Private Sub Detail1_Format(ByVal sender As Object, ByVal e As System.EventArgs) Handles Detail1.Format
Me.SubReport1.CanGrow = True
Me.SubReport1.CanShrink = False
Me.SubReport1.ReportName = "Subreport1"
Dim rpt As New rptSub1()
Me.SubReport1.Report = rpt
End Sub