LItem.SubItems.Add(reader("AUF_NR").ToString())

       Try
            con.Open()
 
            reader = cmd.ExecuteReader()
            ListView1.Items.Clear()
            ListView1.SmallImageList = ImageList1
 
            Do While reader.Read()
                Dim LItem As ListViewItem = ListView1.Items.Add("")
                LItem.SubItems.Add("")
                LItem.SubItems.Add(reader("AUF_NR").ToString())
                LItem.SubItems.Add(reader("AUF_POS").ToString())
                LItem.SubItems.Add(reader("AUF_BEZEICHNUNG").ToString())
                If Len(LItem.SubItems(5)) > 0 Then
                    ListView1.Items(0).ImageIndex = 5
                End If
                LItem.SubItems.Add(reader("AUF_POS_BEZ").ToString())
                If Len(LItem.SubItems(6)) > 0 Then
                    ListView1.Items(1).ImageIndex = 6
                End If
            Loop
        Catch ex As Exception
            MsgBox(ex.Message)
            Return
        Finally
            reader.Close()
            con.Close()
        End Try

VG

Dirk