Visual Basic - Ejecutar sentencias SQL

Hola como puedo ejecutar una sentencia SQL por ejemplo

DELETE FROM PEDIDOS WHERE CLIENTE = "RAMON FERNANDEZ"

si tengo una tabla en una base de datos de acces (mdb) y utilizo el control Data

dim Cn As ADODB.Connection
dim Rs As ADODB.Recordset
dim CMD As ADODB.Command

'abrir la coneccion
Set Cn = New ADODB.Connection
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\base.mdb;Jet OLEDB:Database Password='clave'"
Cn.CommandTimeout = 30
Cn.ConnectionTimeout = 30
Cn.Open

'en un boton pones lo siguiente
Set CMD = New ADODB.Command
With CMD
.ActiveConnection = Cn
.CommandType ="delete from pedidos where cliente ='RAMON FERNANDEZ'"
.CommandText = sql
.Execute
End With
Set CMD = Nothing

cualquier duda avisame