Visual Basic para Aplicaciones - Problema con la sentencia DELETE

El problema es que en el formulario que tengo, he puesto un boton para borrar registros. El botón hace su función pero cuando lo borra me sale un cartel de error diciendo: "Update o CancelUpdate sin AddNew o Edit". Este es el codigo que he utilizado, alguna sugerencia?:

Private Sub Command7_Click()
If Not vnombre = "" Then
sql = "Delete * from Clientes where Nombre = '" & vnombre & "'"
db.Execute sql
MsgBox ("Cliente Eliminado")
rd.Update
rd.MoveFirst
CargarValores
End If
End Sub

Prueba el mismo procedimiento pero elimina la instrucción rd.Update puesto que con delete ya se actualiza

Ayuda, no nos sale el boton borrar, y hemos probado todo tipo de codigos, ayuda por favor, mañana lo tenemos ke entrregar a las 11 am y aorita son las 3:54 del 28 de oct de 2010, para el maestro Alfredo del plantel conalep