Dim rpt As New CrystalReport1()
        Dim frm As New frmReport()
        Dim dt As New DataTable("Report")
        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 ReportAdapter As OleDb.OleDbDataAdapter
        ReportAdapter = New OleDb.OleDbDataAdapter(select_cmd, MDBConnection)
        ReportAdapter.Fill(dt)
        rpt.Database.Tables(0).SetDataSource(dt)
        frm.CrystalReportViewer1.ReportSource = rpt
        frm.ShowDialog()