Actualizar base en excel

Hola amigos:

Me conecto a un archivo de excel para actualizar algunos
campos, el codigo funciona pero cuando abro el archivo de
excel no ha hecho ningun cambio el codigo es el siguiente:

Set pADOConnection = New ADODB.Connection
pADOConnection.ConnectionString
= "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sFile & ";" & _
"Extended Properties=""Excel
8.0;HDR=YES;"""

pADOConnection.Open

Set pADORecordset = New ADODB.Recordset
pADORecordset.CursorLocation = adUseClient
pADORecordset.CursorType = adOpenDynamic
pADORecordset.LockType = adLockBatchOptimistic
pADORecordset.Open "Select * from [hoja1$] where
DEPURADO = 'ND'", pADOConnection
call Save_Register

Private Sub Save_Register()
pADORecordset("DEPURADO") = "OK"
pADORecordset("nombreP") = Trim(UCase(txtNombre.Text))
pADORecordset("paterno") = IIf(txtPaterno.Text
= "", " ", Trim(UCase(txtPaterno.Text)))
pADORecordset("materno") = IIf(txtMaterno.Text
= "", " ", Trim(UCase(txtMaterno.Text)))
pADORecordset("nombre") = Trim(UCase(txtNombre.Text))
& " " & Trim(UCase(txtPaterno.Text)) & " " & Trim(UCase
(txtMaterno.Text))
pADORecordset.Update
End Sub


Supuestamente graba los cambios, pero no es asi, espero
alguien pueda sugerirme algo.