Me.Cursor = Cursors.WaitCursor
        For i = 0 To 
            'hier suche ich ob eingelagert:
            Dim Anz = (From Eintrag In LagerDB.Lagerdetails
                       Where Eintrag.RowState <> DataRowState.Deleted _
                         AndAlso Eintrag.ArtikelID = BS_SD_Maximo_TypRow.ID
                       Select Eintrag).Count
 
            If Anz > 0 Then
                'in die Rows.cells soll der Wert geschrieben werden
                ArtikelDataGridView.Rows(0).Cells("ColBestand").Value = Anz & "" & _
                  "ST"
            Else
                ArtikelDataGridView.Rows(0).Cells("ColBestand").Value = Anz
            End If
        Next i
        Me.Cursor = Cursors.Default