Como conectar access con excel

Necesito conectar una base de datos de access desde excel este es el código que e escrito en la macros de excel.

Function consultarBDatos(IDENTIDAD As Integer, numCampo As Integer) As String
     Dim cn As Object
     Dim datos As Object
     Dim consultaSql As String
     Dim conexion As String
     Dim respuesta As String
     Set cn = CreateObject("ADODB.connection")
     conexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "Data Source =C:\Users\E1\Desktop\base de datos access x excel\BASE DE DATOS\BASE DE DATOS 2\Database3.accdb"
     consultaSql = "Select * from CENSO_NACIONAL where IDENTIDAD = " & IDENTIDAD
     cn.Open conexion
     Set datos = cn.Execute(consultaSql)
     If Not datos.EOF Then
         respuesta = datos.Fields(numCampo - 1)
         consultarBDatos = respuesta
     End If
     datos.Close
     Set datos = Nothing
     cn.Close
     Set cn = Nothing
  

   End Function

Pero cuando pongo la fórmula en una celda de excel que es =consultarBDatos(G4, 2) no me funciona la conexión que puedo hacer para que me conecte a la base de datos de access.