Dim rpt As New rptOLE_Test
        Dim sql As String = "SELECT * FROM Personen WHERE .... "
        Dim da As New OleDb.OleDbDataAdapter(sql, New OleDb.OleDbConnection( _
          DeinConnString))
        Dim ds As New DataSet
        Dim frm As New frmPreview
        da.Fill(ds, "Personen")
        rpt.Database.Tables(0).SetDataSource(ds.Tables("Personen"))
        '// oder: rpt.SetDataSource(ds)
        frm.CrystalReportViewer1.ReportSource = rpt
        While Not rpt.IsLoaded()
            '//
        End While
        frm.ShowDialog()