Dim constringx as String  = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+ _
  Speicherort +";Extended Properties=Excel 8.0"
Dim sqly as String = "CREATE TABLE [Tabelle2$] (A1 char(100), a2 char(100))"
Dim sqlx as String = "INSERT INTO[Tabelle2$] (A1) VALUES ('Test123')"
Dim conx as new OleDbConnection(constringx)
Dim cmdx as new OleDbCommand(sqly, conx)
 
Try
  conx.Open()
  cmdx.ExecuteNonQuery()
  cmdx.CommandText = sqlx
  cmdx.ExecuteNonQuery()
Catch exc as OleDbException 
 '/Fehlermeldung
Finally 
  conx.Close()
End Try