'Die neuen Produkte anzeigen
    Private Sub NeueDatensätzeToolStripMenuItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      NeueDatensätzeToolStripMenuItem.Click
        Me.Text = "Neue Datensätze in der LIVE-DB: Voransicht"
 
        'Dim objCommandBuilder As OleDbCommandBuilder
        Dim cmd As OleDbCommand
        Dim Ergebnis As Integer
 
        Conn.Open()
        Try
            cmd = New OleDbCommand("SELECT * " & _
                                    "FROM Neue_Produkte " & _
                                    "WHERE artnr  IN (SELECT artnr FROM" & _
                                    "Produkte)", Conn)
            'cmd = New OleDbCommand("SELECT neue_produkte.artnr " & _
            '      "FROM (Neue_Produkte) " & _
            '      "LEFT JOIN Produkte ON Neue_Produkte.artnr = " & _
            '      "Produkte.artnr " & _
            '      "WHERE Produkte.artnr Is Null", Conn)
            Ergebnis = cmd.ExecuteNonQuery()   '<=================
            MessageBox.Show("Anzahl Sätze neuer Datensätze: " & Ergebnis & _
              vbCrLf & "Das ist aber nicht korrekt !!!")    '??? das ist nicht 
            ' korrekt !!!!! ????
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            Conn.Close()
        End Try
 
        'Daten aus dem Import anzeigen
        Dim sqlDataViewGrid As String = "SELECT * " & _
                                        "FROM Neue_Produkte " & _
                                        "WHERE artnr IN (SELECT artnr FROM" & _
                                        "Produkte)"
        'Dim sqlDataViewGrid As String = "SELECT neue_produkte.artnr " & _
        '            "FROM (Neue_Produkte) " & _
        '            "LEFT JOIN Produkte ON Neue_Produkte.artnr = " & _
        '            "Produkte.artnr )"  ' & _
        '            "WHERE Produkte.artnr Is Null)"
 
        InitializeDataGridView(sqlDataViewGrid)  'Daten anzeigen
 
    End Sub