'Daten ins EXCEL einfügen via SQL Befehl
        Dim constringx As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=C:\excel.xls;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
 
        'Daten von EXCEL auslesen, via SQL Befehl
        Dim feld
        Try
            Dim da As New OleDbDataAdapter("SELECT * FROM [Tabelle2$]", _
              constringx)
            Dim ds As New DataSet
            da.Fill(ds, 0)
            feld = ds.Tables(0).Rows(0).Item("A1")
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            MsgBox(feld.ToString)
        End Try