'------- 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
 
 
        ' 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
 
dim T as new DataTable()
dim A as new OleDB.OleDBDataAdapter(cmd, con)
 
        'Auslesen der Datenbank
        Try
            con.Open()
a.fill(T)
con.close 'Falls du die Datenverbindung gleich wieder schließen willst... muss 
' aber natürlich nicht sein
        Catch ex As Exception
            MsgBox(ex.Message)
            exit sub
        End Try
 
 
 
DataGridView1.DataSource = T