Sub Daten_suchen2()
 
        Dim Prov As String
        Dim SQL As String
        Dim i As Integer
 
        Prov = _
          Global.WindowsApplication1.My.MySettings.Default.DatDBConnectionString
 
        SQL = "SELECT Verbraucher.Bezeichnung as Bez, Verbraucher.Bezugsgröße" & _
          "as bz, 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("Einheit", 20, HorizontalAlignment.Left)
 
        If dr.HasRows = True Then
 
            lvÜbersicht.BeginUpdate()
 
            With lvÜbersicht
                Do While dr.Read()
                    i = 1
                    .Items(i).SubItems(1).Text() = dr.Item("bez").ToString() _
                      'Fehlermeldung
                    .Items(i).SubItems(2).Text() = dr.Item("bz").ToString()
                    .Items(i).SubItems(3).Text() = 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.