Using Command As New OleDb.OleDbCommand("SELECT feld1,feld2,feld3 FROM" & _
          "TabelleX", AccessConnection)
            Using adapter As New OleDb.OleDbDataAdapter(Command)
                Using CommandBuilder As New OleDb.OleDbCommandBuilder(adapter)
                    adapter.Update(MeineDatatable) ' Da in der Tabelle alles 
                    ' als Added markiert ist wird ein Insert ausgeführt
                End Using
            End Using
        End Using