Friend Function sFillListView(ByVal listView As ListView, _
      Optional ByVal wSQL As String = "Select * From tab_PKVerleih") As Boolean
        Try
            Using con As IDbConnection = GetConnection() ' Erzeugt eine 
            ' frische,neue  Connection
                con.Open()
                Using cmd As IDbCommand = con.CreateCommand()
                    cmd.CommandText = wSQL
                    Dim myDataReader As IDataReader = cmd.ExecuteReader()
 
                    listView.Items.Clear()
                    While myDataReader.Read()
                        Dim lvw As ListViewItem = listView.Items.Add( _
                          myDataReader("fGUID_Komponente").ToString())
                        lvw.SubItems.Add(myDataReader( _
                        "fKomponententyp").ToString())
                        lvw.SubItems.Add(myDataReader("fBeschreibung").ToString( _
                        ))
                    End While
                End Using
            End Using
            Return True ' der Aufrufer setzt selber 
        Catch e As InvalidOperationException
            'Loggen der Exception
            Throw ' und weiterreichen
        End Try
        Return False ' 
    End Function