' Prozedur: Initialisiert die DataObjects
    Public Sub DataObjectsInit(ByRef DataObjects As DataObject, ByVal Path As _
      String)
        With DataObjects
            ' Neue Instanz des Dataset
            .DataSet = New DataSet
            ' Connectionstring festlegen
            .Connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
              "Source=" & Path
            ' Neue Instanz der Connection
            .Connection = New OleDb.OleDbConnection(.Connectionstring)
            ' Neue Instanz des Adapters
            .DataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Sheets", _
              .Connection)
            ' Neue Instanz des CommandBuilders
            .CommandBuilder = New OleDb.OleDbCommandBuilder(.DataAdapter)
            .CommandBuilder.QuotePrefix = "["
            .CommandBuilder.QuoteSuffix = "]"
        End With
    End Sub

Meine Homepage: www.dartrax.de