'------- Doku --------
        ' ReNr, Kunde, Status = Uservariable
        ' v_Datenbank beinhaltet den Pfad zur Datenbank bzw. die Datenbank 
        ' selbst
 
        '---------------- Lesen der Datenbank --------------------------
        ' Verbindung zur Datenbank herstellen
        Dim con As New OleDb.OleDbConnection
        Dim cmd As New OleDb.OleDbCommand
        Dim reader As OleDb.OleDbDataReader
        Dim status, ReNr, Kunde As String
        Dim statusneu As String
 
 
        ' Aufruf und Informationen zur Datenbank
        con.ConnectionString = _
           "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & My.Settings.v_Datenbank
        cmd.Connection = con
        cmd.CommandText = "select * from T_Rechnungen" 'welche Daten angezeigt 
        ' werden sollen
 
 
        'Auslesen der Datenbank
        Try
            con.Open()
            reader = cmd.ExecuteReader()
            ListBox1.Items.Clear()
 
            Do While reader.Read()
 
                status = reader("Bezahlt")
                If status = "false" Then
                    statusneu = "offen"
                Else
                    statusneu = "bezahlt"
                End If
 
                ReNr = reader("ReNr")
                Kunde = reader("Kunde")
                '---------------------- Füllen der Listbox ------------------
                ListBox1.Items.AddRange(New Object() {ReNr, Kunde, statusneu})
 
                '---------------------- Füllen des DataGridView -------------
                '
                '
                '------------------------------------------------------------
            Loop
 
            reader.Close()
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

-----------------------------------------------------------------
Woher soll ich wissen was ich denke, bevor ich h?re was ich sage?