Private Sub btnSuchen_Click(sender As Object, e As EventArgs) Handles _
   btnSuchen.Click
 
        If dt1.Rows.Count = 0 Then
            MessageBox.Show("Du kannst nix suchen! Die Tabelle enthält keine" & _
              "Daten!", "Sirianische Planetenkontrolle:")
            Exit Sub
        End If
 
        If cmbKistenart.Text = "" Then
            MessageBox.Show("Du musst erst die Abfrage zur Kistenart" & _
              "beantworten!")
            Exit Sub
        End If
        If txtFahrgestellnummer.Text = "" And cmbKistenart.Text = _
          "Mehrfachkiste" Then
            MessageBox.Show("Du musst noch die Fahrgestellnummer angeben!")
            Exit Sub
        End If
 
        Dim foundrows() As DataRow
 
        If txtSeriennummer.Text.Length = 7 Then
            foundrows = dt1.Select("Seriennummer='" & txtSeriennummer.Text & _
              "'")
 
            'Das hier einfügen, um abzufangen, wenn eine Seriennummer nicht 
            ' gefunden wurde bzw. nicht existiert!
            If foundrows.Count = 0 Then
                MessageBox.Show("Diese Seriennummer existiert nicht!", _
                  "Unternehmen Stardust:")
                Exit Sub
            End If
            'Ende neuer Teil
 
            If foundrows.Count > 1 Then
                MessageBox.Show("Diese Seriennummer existiert mehrfach!")
                Exit Sub
            End If
 
            If cmbKistenart.Text = "Einzelkiste" Then
                foundrows(0).Item("Status") = "Einzelkiste"
            ElseIf cmbKistenart.Text.Contains("Mehrfachkiste") Then
                foundrows(0).Item("Status") = cmbKistenart.Text
                foundrows(0).Item("Fahrgestellnummer") = _
                  txtFahrgestellnummer.Text
            End If
 
            txtSeriennummer.Text = ""
            cmbKistenart.Text = ""
            txtFahrgestellnummer.Text = ""
 
        End If
 
    End Sub

EALA FREYA FRESENA