Dim Sql As String
        Dim Abfrage As OleDbCommand
        Dim LVItem As New ListViewItem
        Sql = "SELECT FirmenID, Firmenname, Rechtsform FROM Firmen ORDER" & _
          "BY[Firmenname]"
 
            FirmaLadeform.FirmenListe.Items.Clear()
            Abfrage = New OleDbCommand(Sql, objConnection)
            Abfrage.ExecuteNonQuery()
            Dim dr As OleDbDataReader = Abfrage.ExecuteReader()
 
            Do While (dr.Read())
                If Not dr("FirmenID") Is System.DBNull.Value Then
                    LVItem = FirmaLadeform.FirmenListe.Items.Add(dr("FirmenID"))
                End If
                If Not dr("Firmenname") Is System.DBNull.Value Then
                    LVItem.SubItems.Add(dr("Firmenname"))
                End If
                If Not dr("Rechtsform") Is System.DBNull.Value Then
                    LVItem.SubItems.Add(dr("Rechtsform"))
                End If
            Loop
            dr.Close()