Try
            Dim myDS As New DSIID_WH()
            Dim rpt2 As New Rpt_IP
            'Me.OracleSelectCommand1.Parameters("PO_ID").Value = 
            ' Me.Combobox.SelectedValue
            'Me.OracleDataAdapter1.Fill(Me.DSIID_WH.TBWH_ASN_POS)
            Me.TBWH_ASN_POSTableAdapter.Fill(Me.DSIID_WH.TBWH_ASN_POS, _
              Me.GUIDTextBox.Text)
            rpt2.SetDataSource(myDS)
            Me.CrystalReportViewer1.ReportSource = rpt2
            Me.CrystalReportViewer1.RefreshReport()
            Me.CrystalReportViewer1.Refresh()
            'rpt.PrintToPrinter(1, False, 0, 0)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Aufbauen des" & _
              "Berichtes:")
        End Try