kjøre "DELETE FROM" og "SELECT INTO" query (dqy) fra macroknapp

Hei
Jeg har laget noen queries med "DELETE FROM" og "SELECT INTO" (tømme og bygge opp en sql tabell med forskjellige kriterier) og en vanlig "SELECT" for å hente data fra en ODBC MS SQL server. Jeg ønsker å utføre sql queriene fra macroknapper. SELECT'en kunne recordes i en vba, men de andre queriene, som ikke returnerer data, registrerte ingen ting i den recorded vba'en.
Har forsøkt å lime inn querien i "Sub Button16_Click()
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=OVreservedeler;Description=OVreservedeler;UID=oen;APP=Microsoft Office 2003;WSID=VMOV;DATABASE=OnixWorkDemo;Trusted_Connect" _
        ), Array("ion=Yes")), Destination:=Range("A1"))
        .CommandText = Array( _
"DELETE FROM [dbo].[TempReservedeler]" _
, _
"INSERT  INTO [dbo].[TempReservedeler] ([ID]  ,[Beskrivelse]  ," osv osv

Får feilmelding "Type mismatch" når den kjøres.

Kan du hjelpe meg?

mvh
oen