blnOK = DB.FillDataSet_SQLQuery("Select * From tblAdressen", _
          gobjDataSet)
        ReportAdr = New ReportDocument()
        Dim reportPath As String = Application.StartupPath & "\" & _
          "RptAdressen.rpt"
        ReportAdr.Load(reportPath)
        ReportAdr.SetDataSource(gobjDataSet)
 
        CrystalReportViewer1.ReportSource = ReportAdr