Estoy escribiendo una macro que carga valores desde Excel hacia tabla de base de datos en Access, lo que quiero que haga es que recorra un rango `Range("D" & i).Value` de valores en Excel validando que estén registrados en la tabla de Access `CAT_DOMINIO_REFERENCIA`, y si no existen agregar el registro de una forma especifica, la tabla `CAT_DOMINIO_REFERENCIA` tiene 3 campos, los cuales son INTERNO_DOMINIO , DESCRIPCION_DOMINIO , PALABRA_CLAVE, de estos solo se debe tener en cuenta la coincidencia de búsqueda con DESCRIPCION_DOMINIO el cual esta relacionado con el rango de validación de existencia en Excel, los otros dos campos se deben registrar en caso de que no halla coincidencia de búsqueda el valor "maximo +1" ya registrado esto en el caso del campo INTERNO_DOMINIO, y para campo de PALABRA_CLAVE debe registrarse el mismo valor de DESCRIPCION_DOMINIO.

Estoy trabajando sobre esta macro pero aun no logro hacerla funcionar 

    Sub Update()
    Const Sig_DB As String = "SIG_2012.mdb"
    Dim cnn As ADODB.Connection
    Dim MyConn As String
    Dim rs, rst As ADODB.Recordset
    Dim QuerySql, ConsultaSql As String
    Dim ClaseDem As String, i As Long
    
    Set cnn = New ADODB.Connection
    MyConn = ThisWorkbook.Path & Application.PathSeparator & Sig_DB
    With cnn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .Open MyConn
    
    
    With Sheets("DEM")
    uf = .Range("D" & Rows.Count).End(xlUp).Row
    End With
    For i = 3 To uf
    ClaseDem = Range("D" & i).Value
    QuerySql = "Select* from CAT_DOMINIO_REFERENCIA where DESCRIPCION_DOMINIO = " & ClaseDem
    
    ConsultaSql = "SELECT MAX(INTERNO_DOMINIO) FROM CAT_DOMINIO_REFERENCIA"
    rst.Open ConsultaSql, Cnn, adOpenKeyset, adLockOptimistic
    
    Set rs = New ADODB.Recordset
    With rs
    .CursorLocation = adUseServer
    .Open Source:=QuerySql, ActiveConnection:=cnn, _
    CursorType:=adOpenDynamic, LockType:=adLockOptimistic, _
    Options:=adCmdText
    If (.BOF And .EOF) Then
    'No se encontraron coincidencias; añadir nuevo récord
    .AddNew
    !INTERNO_DOMINIO = rst.Fields(0).Value + 1
    !DESCRIPCION_DOMINIO = ClaseDem
    !PALABRA_CLAVE = ClaseDem
    Else
    'registro coincidente encontrado; continuar
    End If
    .Update
    .Close
    End With
    
    Set rs = Nothing
    cnn.Close
    Set cnn = Nothing
    
    Next i
    End Sub

A continuación muestro un ejemplo grafico de lo que quiero hacer

El rango de valores resaltados en Excel se deben validar si existen en la tabla de Access
[![introducir la descripción de la imagen aquí][1]][1]

[![introducir la descripción de la imagen aquí][2]][2]

Si no hay coincidencia en la busqueda ```QuerySql = "Select* from CAT_DOMINIO_REFERENCIA where DESCRIPCION_DOMINIO = " & ClaseDem``` se deben añadir, quedando de esta forma
[![introducir la descripción de la imagen aquí][3]][3]

**Nota: Es posible que en misma macro ```Update``` se añadan registros asociados a los ya agregados a otra tabla con nombre ```CAT_CATALOGO``` relacionada a la tabla ```CAT_DOMINIO_REFERENCIA```?, la tabla ```CAT_CATALOGO``` tiene 2 campos de nombre INTERNO_TABLA_REFERENCIA, INTERNO_DOMINIO; a continuación  muestro como debería quedar en caso de ser posible
[![introducir la descripción de la imagen aquí][4]][4]


Saludos comunidad, espero me puedan ayudar con esto.


  [1]: https://i.sstatic.net/XQcxw.png
  [2]: https://i.sstatic.net/WGgiO.png
  [3]: https://i.sstatic.net/OB4XO.png
  [4]: https://i.sstatic.net/yP73h.png