Public Sub schreibeAccessDaten(ByVal MDBFile As String, ByVal ds As DataSet)
 
        Dim conn As OleDbConnection = erstelleAccessVerbindung(strmdb)
        conn.Open()
 
        Dim adap As New OleDbDataAdapter("Select * from [Tabellenname]", conn)
        Dim CBilder As New OleDbCommandBuilder(adap )
        CBilder .QuotePrefix = "["
        CBilder .QuoteSuffix = "]"
 
        adap .Update(ds.Tables("Tabellenname"))
 
End Sub