Zugriff per SQL auf Excel-Sheet

Sub Excel_Sheet_aktulisieren()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\tmp\Test.xlsm;" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"
rst.Open "SELECT DISTINCT * FROM [Tabelle1$] where Monat = 'November' and Jahr = 2009" _
, conn, adOpenKeyset, adLockOptimistic, adCmdText
Do Until rst.EOF
Debug.Print rst.Fields.Item("Name")
rst.Fields.Item("Value") = 1
rst.Update
rst.MoveNext
Loop
End Sub