' Struktur: Nimmt alle Datenbankobjekte auf
    Public Structure DataObject
        ' Dataset: Das Dataset der Datenbank
        Dim DataSet As DataSet
        ' String: Der Connectionstring der Datenbankverbindung
        Dim Connectionstring As String
        ' OleDbConnection: Die Datenbankverbindung
        Dim Connection As OleDb.OleDbConnection
        ' OleDbDataAdapter: Der Adapter zwischen Verbindung und Dataset
        Dim DataAdapter As OleDb.OleDbDataAdapter
        ' OleDbCommandBuilder: Der Commandbuilder zu Generieren der 
        ' Datenbankbefehle
        Dim CommandBuilder As OleDb.OleDbCommandBuilder
    End Structure
 
    ' Prozedur: Initialisiert die DataObjects, gibt eventuellen Fehlerstring 
    ' zurück
    Public Sub DataObjectsInit(ByRef DataObjects As DataObject, ByVal Path As _
      String, ByVal Table 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 " & Table, _
              .Connection)
            ' Neue Instanz des CommandBuilders
            .CommandBuilder = New OleDb.OleDbCommandBuilder(.DataAdapter)
            ' Trennzeichen festlegen
            .CommandBuilder.QuotePrefix = "["
            .CommandBuilder.QuoteSuffix = "]"
        End With
    End Sub
 
            ' DataObjects instanzieren
            DataObjectsInit(EinLeeresDataObject, MeineDatenbankdatei, _
              MeinTabellenname)

Meine Homepage: www.dartrax.de