Dim strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
       "Source=cao.mdb"
            Dim con As New OleDb.OleDbConnection
 
            Dim DS As New DataSet
 
            con.ConnectionString = strCon
 
            Dim sqladapter As OleDb.OleDbDataAdapter
            Dim sqlstring As String
 
            sqlstring = "SELECT J.BARCODE, J.MENGE, A.HERST_ARTNUM," & _
              "H.HERSTELLER_NAME, J.BEZEICHNUNG, J.EPREIS, [J.POSITION] as pos" & _
              "FROM JOURNALPOS J, ARTIKEL A, HERSTELLER H "
            sqlstring &= "WHERE H.HERSTELLER_ID = A.HERSTELLER_ID AND J.ARTNUM" & _
            "= A.ARTNUM AND VRENUM = '" & rnr & "'"
            sqladapter = New OleDb.OleDbDataAdapter(sqlstring, con)
 
            con.Open()
 
            sqladapter.Fill(DS, "JOURNALPOS")
 
            Dim bs As New BindingSource(DS, "JOURNALPOS")
            Main.dgv1.DataSource = bs
            bs.Sort = "pos asc"

 Dim strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cao.mdb"
                Dim con As New OleDb.OleDbConnection
                Dim DS As New DataSet
                con.ConnectionString = strCon
                Dim sqladapter As OleDb.OleDbDataAdapter
                Dim sqlstring As String
                sqlstring = "SELECT A.BARCODE, A.HERST_ARTNUM," & _
                  "H.HERSTELLER_NAME, A.KURZNAME FROM ARTIKEL A, HERSTELLER H" & _
                  "WHERE H.HERSTELLER_ID = A.HERSTELLER_ID AND A.BARCODE = '" & _
                  ean & "'"
 
 
                sqladapter = New OleDb.OleDbDataAdapter(sqlstring, con)
                con.Open()
                sqladapter.Fill(DS)
 
 
                If DS.Tables(0).Rows.Count > 0 Then
                    Dim barcode As String
                    Dim herst_artnum As String
                    Dim hersteller As String
                    Dim name As String
 
                    barcode = DS.Tables(0).Rows(0).Item(0).ToString()
                    herst_artnum = DS.Tables(0).Rows(0).Item(1).ToString()
                    hersteller = DS.Tables(0).Rows(0).Item(2).ToString()
                    name = DS.Tables(0).Rows(0).Item(3).ToString()
                    'Daten aus Abfrage auslesen
 
                    Dim dr As DataRow
                    dr = table1.NewRow() ' neue Row anlegen
                    dr(0) = barcode
                    dr(1) = "1"
                    dr(2) = herst_artnum
                    dr(3) = hersteller
                    dr(4) = name
                    table1.Rows.Add(dr) 'neue Row einfügen