Dim constringx as string = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+ _
  Speicherort +";Extended Properties=Excel 8.0"
Dim conx as new OleDbConnection(constringx)

  Dim CreateString as string = "Create TABLE [TabellenName] (ID Integer," & _
    "Bezeichnung Varchar(100));"
  Dim cmdx as new OleDbCommand(CreateString, conx)

  Dim myAdapter as new OleDbDataAdapter("Select * from[TabellenName$]",conx)
  Dim myCmdB as new OleDbCommandBuilder(myAdapter)

Try
  conx.Open()
  cmdx.ExecuteNonQuery()
  myAdapter.Update(DasDataSet, "TabellenName")
Catch exc as Exception
Finally
  conx.Close()
End Try

Adapter.AcceptChangesDuringFill=false