ADODC og delete

Hvorfor kan dette stykke kode ikke slette en post i mit recordset??

******************************************************

Case 2
svar = MsgBox(\"Vil du slette kunden?\", vbYesNo, \"Slet kunde\")
            If svar = vbYes Then
                Adodc1.Recordset.Delete
                Adodc1.Recordset.Update
            Else
                Adodc1.Recordset.CancelUpdate
                MsgBox \"Kunden blev ikke slettet\", vbInformation, \"Kunden ikke slettet\"
            End If

*****************************************************

Følgende properties er sat:

CommandType: adCmdText
CurserLocation: AdUseClient
CurserType: AdUseStatic
LockType: AdLockOptimistic
Mode: AdModeReadWrite

Jeg anvender et SQL udtræk som recordsource