Public Function Lesen(Tabelle As DataTable) As DataTable
    ' Lesen der Datenbank
    oleDbDataAdapter.Fill(Tabelle);
    Lesen = Tabelle
End Function

Public Function Schreiben(Tabelle As DataTable) As Boolean
    ' Aktualisieren der Datenbank
    oleDbDataAdapter.Update(Tabelle);
    Schreiben = true
End Function

Star

Murphy:
 1.) Nichts ist so leicht wie es aussieht!
 2.) Alles dauert l?nger als du denkst!
 3.) Alles, was schief gehen kann, geht schief!