Private Function pruefe_Maximo(ByVal strPruefstring As String) As Boolean
        Dim Anz = From Eintrag In LagerDB.Lagerliste
                  Where Eintrag.RowState <> DataRowState.Deleted AndAlso _
                  (Eintrag.INMAXIMO = True) AndAlso (Eintrag.MAXIMO.ToLower = _
                  strPruefstring.ToLower) _
                  Select Eintrag.Standort, Eintrag.Kostenstelle, _
                  Eintrag.Artikelbezeichnung, Eintrag.Artikelnummer
 
        If modus_Datensatz_Lagerliste = DatensatzModus.Neu Then
            If Anz.Count > 0 Then
 
                Dim Form_Rueckgabewert As Boolean
 
                Using Dialog_Form As New frm_Dialog()
                    With Dialog_Form
                        .ShowInTaskbar = True
 
                        'Titel an frm_Dialog übergeben
                        .lbl_Titel.Text = "MAXIMO ist bereits vergeben!"
 
                        'Meldung an frm_Dialog übergeben
                        Dim sbMeldung As New System.Text.StringBuilder
                        sbMeldung.AppendFormat("{0} {1}", "Die Maximo-Nummer ", _
                          strPruefstring)
                        sbMeldung.AppendLine()
                        sbMeldung.AppendFormat("{0} {1} {2}", "ist bereits", _
                          Anz.Count, " mal vergeben.")
                        sbMeldung.AppendLine()
                        sbMeldung.AppendLine()
                        sbMeldung.Append("Soll die Maximo-Nr trotzdem" & _
                          "hinzugefügt werden?")
                        .lbl_Meldung.Text = sbMeldung.ToString
 
                        'Alle Maximo mit 
                        ' Standort,Kostenstelle,Artikelbezeichnung,Artikelnumme
                        ' r an frm_Dialog übergeben
                        .ListBox_Daten.Items.AddRange(Anz.ToArray)
 
                        'frm_Dialog anzeigen
                        .ShowDialog(Me)
                    End With
 
                    'Abfragen, ob Ja oder Nein geklickt wurde
                    Form_Rueckgabewert = Dialog_Form.return_wert
                    If Form_Rueckgabewert = True Then
                    Else
                        Return False
                    End If
                End Using
 
            End If
 
        ElseIf modus_Datensatz_Lagerliste = DatensatzModus.Bearbeiten Then
            If Anz.Count > 1 Then
 
                Dim Form_Rueckgabewert As Boolean
 
                Using Dialog_Form As New frm_Dialog()
                    With Dialog_Form
                        .ShowInTaskbar = True
 
                        'Titel an frm_Dialog übergeben
                        .lbl_Titel.Text = "MAXIMO ist bereits vergeben!"
 
                        'Meldung an frm_Dialog übergeben
                        Dim sbMeldung As New System.Text.StringBuilder
                        sbMeldung.AppendFormat("{0} {1}", "Die Maximo-Nummer ", _
                          strPruefstring)
                        sbMeldung.AppendLine()
                        sbMeldung.AppendFormat("{0} {1} {2}", "ist bereits", _
                          Anz.Count, " mal vergeben.")
                        sbMeldung.AppendLine()
                        sbMeldung.AppendLine()
                        sbMeldung.Append("Soll die Maximo-Nr trotzdem" & _
                          "hinzugefügt werden?")
                        .lbl_Meldung.Text = sbMeldung.ToString
 
                        'Alle Maximo mit 
                        ' Standort,Kostenstelle,Artikelbezeichnung,Artikelnumme
                        ' r an frm_Dialog übergeben
                        .ListBox_Daten.Items.AddRange(Anz.ToArray)
 
                        'frm_Dialog anzeigen
                        .ShowDialog(Me)
                    End With
 
                    'Abfragen, ob Ja oder Nein geklickt wurde
                    Form_Rueckgabewert = Dialog_Form.return_wert
                    If Form_Rueckgabewert = True Then
                    Else
                        Return False
                    End If
                End Using
 
            End If
 
            End If
            Return True
    End Function