Dim oConn As New SqlConnection(cString)
        Dim oDataA As SqlDataAdapter
        Dim oDataSET As New DataSet
        Dim oDataT As New DataTable
        Dim oDateTunterbericht As DataTable
        Dim crHauptbericht As New CrystalReport2
        'Dim crUnterbericht As New CrystalReport3
        Dim sQry As String
 
       'oDataSET.WriteXmlSchema("C:/DBschemaPlanung.xsd")
 
        crHauptbericht.SetDataSource(oDataSET )
        'crUnterbericht.SetDataSource(oDateTunterbericht)
 
        With CrystalReportViewer1
            .ReportSource = crHauptbericht
            .ShowFirstPage()
        End With