Private Sub btnNavNext_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles btnNavNext.Click
        Me.BindingContext(objDataSetEGeräte, "E-Geräte - Geräte").Position = ( _
        Me.BindingContext(objDataSetEGeräte, "E-Geräte - Geräte").Position + 1)
        Me.objDataSetEGeräte_PositionChanged()
 
        Dim hname As String
        Dim schlüs As String
        Dim anschlag As String
        Dim reader As OleDb.OleDbDataReader
 
        Dim dbform As New Dialog_E_Geräte
        dbform.DbConn.Open()
        dbform.DbData.SelectCommand.CommandText = "SELECT [E-Geräte -" & _
          "Hersteller].[Hersteller-Nr], [E-Geräte -" & _
          "Hersteller].[Hersteller-Name] FROM [E-Geräte - Hersteller] WHERE (((" & _
          "[E-Geräte - Hersteller].[Hersteller-Nr])=" & editHersteller_Nr.Text _
          & "));"
        reader = dbform.DbData.SelectCommand.ExecuteReader
        If reader.Read = True Then
            hname = reader.Item("Hersteller-Name")
            HerstellerName.Text = hname
        End If
        dbform.DbConn.Close()
        reader.Close()
 
        If editSchlüssel.Text <> "" Then
            dbform.DbConn.Open()
            dbform.DbData.SelectCommand.CommandText = "SELECT [E-Geräte -" & _
              "Geräteschlüssel].Schlüssel, [E-Geräte - Geräteschlüssel].Stext" & _
              "FROM [E-Geräte - Geräteschlüssel] WHERE ((([E-Geräte -" & _
              "Geräteschlüssel].Schlüssel)=" & editSchlüssel.Text & "));"
            reader = dbform.DbData.SelectCommand.ExecuteReader
            If reader.Read = True Then
                If reader.Item("SText") Is System.DBNull.Value = False Then _
                  schlüs = reader.Item("SText") Else schlüs = ""
                Schlüsselbez.Text = schlüs
            End If
            dbform.DbConn.Close()
            reader.Close()
        End If
 
        If editAnschlagsystem.Text <> "" Then
            dbform.DbConn.Open()
            dbform.DbData.SelectCommand.CommandText = "SELECT [E-Geräte -" & _
              "Anschlagsystem].AnschlagsystemNr, [E-Geräte -" & _
              "Anschlagsystem].Beschreibung FROM [E-Geräte - Anschlagsystem]" & _
              "WHERE ((([E-Geräte - Anschlagsystem].AnschlagsystemNr)=" & _
              editAnschlagsystem.Text & "));"
            reader = dbform.DbData.SelectCommand.ExecuteReader
            If reader.Read = True Then
                If reader.Item("Beschreibung") Is System.DBNull.Value.Value = _
                  False Then anschlag = reader.Item("Beschreibung") Else _
                  anschlag = ""
                AnsBez.Text = anschlag
            End If
            dbform.DbConn.Close()
            reader.Close()
        End If
 
        If editSchlüssel.Text <> AlterSchlüssel.Text Then
            ListBox2.Items.Clear()
            ListBox3.Items.Clear()
            ListBox1.Items.Clear()
            ListBox4.Items.Clear()
            ListBox5.Items.Clear()
            ListBox6.Items.Clear()
 
            ' Listboxen füllen
            Dim artnr As String
            Dim artbez1 As String
            Dim artbez2 As String
 
            dbform.DbConn.Open()
            dbform.DbData.SelectCommand.CommandText = "SELECT" & _
              "mbi_mbi_tstvw.artikel_nr, First(mbi_mbi_tstbs.artbez1) AS Bez1," & _
              "First(mbi_mbi_tstbs.artbez2) AS Bez2 FROM [E-Geräte - Geräte]" & _
              "INNER JOIN ((mbi_mbi_tstbs INNER JOIN mbi_mbi_tsttk ON" & _
              "mbi_mbi_tstbs.tst_nr = mbi_mbi_tsttk.tst_nr) INNER JOIN" & _
              "mbi_mbi_tstvw ON mbi_mbi_tstbs.tst_nr = mbi_mbi_tstvw.tst_nr) ON" & _
              "[E-Geräte - Geräte].Schlüssel = mbi_mbi_tsttk.laenge WHERE(((" & _
              "mbi_mbi_tsttk.var_id) = 0) And ((mbi_mbi_tsttk.laenge) = " & _
              editSchlüssel.Text & ")) GROUP BY mbi_mbi_tstvw.artikel_nr HAVING" & _
              "(((mbi_mbi_tstvw.artikel_nr) Like 'S%'));"
            reader = dbform.DbData.SelectCommand.ExecuteReader
 
            While reader.Read
                If reader.Item("artikel_nr") Is System.DBNull.Value.Value = _
                  False Then artnr = reader.Item("artikel_nr") Else artnr = ""
                If reader.Item("Bez1") Is System.DBNull.Value.Value = False _
                Then artbez1 = reader.Item("Bez1") Else artbez1 = ""
                If reader.Item("Bez2") Is System.DBNull.Value.Value = False _
                Then artbez2 = reader.Item("Bez2") Else artbez2 = ""
 
                artnr = Trim(artnr)