If Not BS_IVDETAILS_TypRow.IsBildNull Then
            Dim Pfad_Bild = System.IO.Path.Combine( _
              get_Dokumente_Inventar_Ordner(BS_IVDETAILS_TypRow.ID), _
              BS_IVDETAILS_TypRow.Bild)
            Dim fi As New System.IO.FileInfo(Pfad_Bild)
 
            If fi.Exists Then
                pbx_Artikel_Bild.ImageLocation = fi.FullName
                pbx_Artikel_Bild.SizeMode = PictureBoxSizeMode.Zoom
            Else
                pbx_Artikel_Bild.Image = My.Resources.keinbild
            End If
        Else
            pbx_Artikel_Bild.Image = My.Resources.keinbild
        End If