Visual Basic para Aplicaciones - URGENTE UPDATE

TENGO ESTE CODIGO:

Private Sub importa_Click()

Dim Archivo As ADODB.Connection
Dim Tabla As ADODB.Recordset
Dim objExcel As excel.Application
Dim xlSheet As excel.Worksheet
Dim Salir As Boolean
Dim valor As String

'Abrir archivo en access en donde se agregará el de excel
Set Archivo = New ADODB.Connection
Set Tabla = New ADODB.Recordset
Archivo.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=S:\BD\PROSPECTOSbd.mdb;Persist Security Info=False;"
Archivo.Open
Tabla.Open "SELECT * FROM clientes", Archivo, adOpenKeyset, adLockOptimistic

'Abrir archivo excel
Set objExcel = Nothing
Set objExcel = New excel.Application
objExcel.Workbooks.Open FileName:=BuscarArchivo(Text1) 'S:\MKT MEXICO PRUEBAS\BD\libroPrueba.xls
objExcel.Visible = False

'Establecer un renglón inicial en el archivo excel y debe seguir un mismo formato que la tabla
renglon = 2
With objExcel
Do

'Definir cuántos registros se van a agregar
If .Cells(renglon, 1) = "" Then
Salir = True
Else
Salir = False
Tabla.AddNew
Tabla("empresa") = .Cells(renglon, 1)
Tabla("sector") = .Cells(renglon, 2)
Tabla("ramo_giro") = .Cells(renglon, 3)
Tabla("ciudad") = .Cells(renglon, 4)
Tabla("direccion") = .Cells(renglon, 5)
Tabla("lada") = .Cells(renglon, 6)
Tabla("tel_empresa") = .Cells(renglon, 7)
Tabla("ext") = .Cells(renglon, 8)
Tabla("paginaweb") = .Cells(renglon, 9)
Tabla("posición") = .Cells(renglon, 10)
Tabla("titulo") = .Cells(renglon, 11)
Tabla("nom_contacto") = .Cells(renglon, 12)
Tabla("tel_contacto") = .Cells(renglon, 13)
Tabla("puesto") = .Cells(renglon, 14)
Tabla("correo") = .Cells(renglon, 15)
Tabla("fax") = .Cells(renglon, 16)
Tabla("notas") = .Cells(renglon, 17)
Tabla("estatus_llamada") = .Cells(renglon, 18)
Tabla("is_agente") = .Cells(renglon, 19)
Tabla("is_brm") = .Cells(renglon, 20)
Tabla("lugar_cita") = .Cells(renglon, 21)
Tabla("dia") = .Cells(renglon, 22)
Tabla("mes") = .Cells(renglon, 23)
Tabla("año") = .Cells(renglon, 24)
Tabla("ingresos") = .Cells(renglon, 25)
Tabla("n_empleados") = .Cells(renglon, 26)
Tabla("sub_segmento") = .Cells(renglon, 27)
Tabla("relacion_softtek") = .Cells(renglon, 28)
Tabla("notas2") = .Cells(renglon, 29)
Tabla("mes_ultimo_estatus") = .Cells(renglon, 30)
Tabla("no_intentos") = .Cells(renglon, 31)
Next

Tabla.Update
renglon = renglon + 1
End If
Loop Until Salir
End With

'Ya terminado ... la tabla tiene agregados los registros que estaban en excel, _
ahora se cierran la tabla y se libera la aplicación del excel.
Tabla.Close
Archivo.Close
objExcel.Workbooks.Close
Set objExcel = Nothing

End Sub

ESTE CODIGO AGREGA NUEVOS REGISTROS, LO QUE QUIERO ES QUE COMPARE LOS REGISTROS DEL EXCEL CON LOS QUE ESTAN EN MI BD ACCESS Y ACTUALICE LA INFORMACIÓN.

SE PUEDE HACER ESTO, Y COMO SERIA?

GRACIAS POR SUS COMENTARIOS