Dim rpt As New CrystalReport1()
        Dim frm As New frmReport()
        MDBConnection.Open()
        Dim select_cmd As String = "SELECT tbl_drucker.Ablagenummer," & _
          "tbl_drucker.Bearbeiter, tbl_drucker.Datum, tbl_d" & _
        "rucker.Drucker_ID, tbl_drucker.Druckkopfseriennummer," & _
        "tbl_drucker.Handbuch, tbl_" & _
        "drucker.Kunden_ID, tbl_drucker.Modell, tbl_drucker.Netzteil," & _
        "tbl_drucker.[Origin" & _
        "al Karton], tbl_drucker.[Parallel Kabel], tbl_drucker.Seriennummer," & _
        "tbl_drucker." & _
        "Sonstiges, tbl_drucker.[Treiber CD], tbl_drucker.[USB Kabel]," & _
        "tbl_kunde.Ansprech" & _
        "partner, tbl_kunde.Email, tbl_kunde.Firma, tbl_kunde.ID," & _
        "tbl_kunde.Kundennummer," & _
        " tbl_kunde.Telefon FROM (tbl_drucker LEFT OUTER JOIN tbl_kunde ON" & _
        "tbl_drucker.Ku" & _
        "nden_ID = tbl_kunde.ID)WHERE Drucker_ID = " & txtID.Text & ""
        Dim AbfrageDataSet As New DataSet()
        MDBAdapter.Fill(AbfrageDataSet, "tbl_drucker LEFT OUTER JOIN tbl_kunde" & _
          "ON tbl_drucker.Kunden_ID = tbl_kunde.ID")
        rpt.Database.Tables(0).SetDataSource(AbfrageDataSet.Tables("tbl_drucker" & _
        "LEFT OUTER JOIN tbl_kunde ON tbl_drucker.Kunden_ID = tbl_kunde.ID"))
        frm.CrystalReportViewer1.ReportSource = rpt
        While Not rpt.IsLoaded()
            '//
        End While
        MDBConnection.Close()
        frm.ShowDialog()