Visual Basic - ADO No actualiza.

tengo un datagrid enlazado a un ADODC. Cuando inserto registros en el ADODC el datagrid refleja esos cambios perfectamente, pero el problema están en la eliminación de resgistros. Elimino una serie de registros empleando un command (SQL) y los cambios no se reflejan en el datagrid, (por mucho que refresque el ADODC, el datagrid, vuelva a enlazar ..., nada que no actualiza, y para tocar mas las narices resulta que pongo un boton, desde el que refresco el ADODC y si funciona, pero haciendo lo mismo de un tiron NO. Ya me tiene loco. (Y no es la 1ª vez que me pasa....)

Prueba con algo parecido a esto:

Sub Eliminar()
If MsgBox("El siguiente RUT será eliminado de su base de datos " _ & " ¿ Desea eliminarlo ahora ?", vbExclamation + vbYesNo) = vbYes Then
adoRazon.Recordset.Delete
adoRazon.Recordset.Update
adoRazon.Refresh
Call "rutina que enlaza el DataGrid a la base de datos"
End If
End Sub

Lo que te esta pasando es que no le estas dando tiempo al ado para que los datos se refresquen.
Para solucionarlo antes del refresh del ado. pone la siguiente sentencia:
Pausa 0.5

Public Sub Pausa(ByVal dSegundos As Double)
Dim dTiempo As Single
Dim iMudo As Integer

dTiempo = Timer
Do While Timer - dTiempo < dSegundos
iMudo = DoEvents()
'Si nos pasamos de medianoche, retrocedemos un día
If Timer < dTiempo Then
dTiempo = dTiempo - 24 * 60 * 60
End If
Loop
End Sub

Espero que se te solucione....