Hilfe ADO löschen mit Query -- Tino?

Hallo zusammen,
ich habe wieder eine Frage zu ADO. Das mit dem Abrufen der Datensätze funktioniert mittlerweile sehr gut. Aber jetzt möchte ich gerne Datensätze mit Hilfe eines SQL Strings löschen. Ich sehe immer wieder Beispiele bei denen es funktioniert, ich bringe es bei mit allerdings nicht zum laufen.

Sub Datensatz_Loeschen()
Dim sAdoConnectString   As String
Dim sPfad               As String
Dim sQuery              As String
Dim cntCom              As Object
Set cnt = CreateObject("Adodb.connection")
Set cntCom = CreateObject("ADODB.command")
sPfad = ThisWorkbook.Path & "\DBTest.xlsx" 'HIER ALLENFALLS NOCH DEN PFAD ANPASSEN
sAdoConnectString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};HDR=1; _
IMEX=1;DBQ=" & sPfad & "; readonly=false;"
cnt.Open sAdoConnectString
sQuery = "DELETE FROM [Tabelle1$] WHERE Artikel='7'"
With cntCom
.ActiveConnection = cnt
'.CommandType = adcmdtext
.CommandText = sQuery
.Execute
End With
Aufraeumen:
On Error Resume Next
cnt.Close
rec.Close
Set rec = Nothing
Set cnt = Nothing
Exit Sub
Fehler:
MsgBox "Fehler: " & Err.Description
Resume Aufraeumen
End Sub