Sub Daten_suchen2()
        Dim Prov As String
        Dim SQL As String
        Prov = _
          Global.WindowsApplication1.My.MySettings.Default.DatDBConnectionString
 
        SQL = "SELECT Verbraucher.Bezeichnung as Bez, Verbraucher.Bezugsgröße" & _
          "as gr, Verbraucher.Einheit as e, Verbraucher.ID FROM Verbraucher;"
 
        Dim conn = New OleDbConnection(Prov)
        Dim cmd As New OleDbCommand(SQL, conn)
 
        Dim dr As OleDb.OleDbDataReader
        conn.Open()
        dr = cmd.ExecuteReader
 
        lvÜbersicht.View = View.Details
 
 
        lvÜbersicht.Columns.Add("Verbraucher", 100, HorizontalAlignment.Left)
        lvÜbersicht.Columns.Add("Kostensatz", 100, HorizontalAlignment.Left)
        lvÜbersicht.Columns.Add("letzter Eintrag", 150, _
          HorizontalAlignment.Left)
        lvÜbersicht.Columns.Add("test Eintrag", 150, HorizontalAlignment.Left)
        lvÜbersicht.Columns.Add("test Eintrag2", 150, HorizontalAlignment.Left)
 
        If dr.HasRows = True Then
 
            lvÜbersicht.BeginUpdate()
 
            With lvÜbersicht.Items
                Do While dr.Read()
                    .Add(New ListViewItem(New String() {dr.Item("bez").ToString( _
                      ), dr.Item("gr").ToString() & " " & dr.Item("e").ToString( _
                      )}))
                Loop
            End With
 
            lvÜbersicht.EndUpdate()
 
            dr.Close()
            conn.Close()
        Else
 
            dr.Close()
            conn.Close()
 
        End If
 
    End Sub

Wer aufhört sich zu verbessern, hört auf gut zu sein.