how to delete?..

what codes should i use if i want to delete a record in sql using vb6?.,

because this doesnt work..

Confirm = MsgBox ("Are you sure you want to delete this record?", vbYesNo, "Deletion Confirmation")
If Confirm = vbYes Then
adodc1.Recordset.Delete
MsgBox "Record Deleted!", , "Message"
Else
MsgBox "Record Not Deleted!", , "Message"
End If

-grrr.,they are teaching us about sql now??.,
gggrrrrrr!!!!.,our skuL is useless!.,connectionObj.execute ("Delete from tablename where keyColumn=" & keyVal)|||thankyou.,:)