Sub AddCoonectToFile()
    Dim sFile$: sFile = "D:\Data\DB.accdb" 'полный путь к вашему файлу Access
    Dim sSQL$:  sSQL = "SELECT top 1 Фамилия,Имя,Очество,Прописка,[Дата рождения] " & _
                       "FROM Таблица1 " & _
                       "ORDER BY Код DESC;"
    
    AddNewOLEDBConnectToAccess sFile, sSQL
End Sub

Private Sub AddNewOLEDBConnectToAccess(ByVal PatchFile$, sSQL$)
    Dim CON As Object: Set CON = CreateObject("ADODB.Connection")
    Dim ConnStr$: ConnStr$ = OLEDBstrConn(PatchFile) & """"";"
    Set CON = ActiveWorkbook.Connections.Add(Name:="AccessConn", Description:="Connection to Access file", ConnectionString:=ConnStr, CommandText:=sSQL, lCmdtype:=xlCmdSql)
End Sub

Private Function OLEDBstrConn$(ByVal PatchFile$)
    OLEDBstrConn = "OLEDB;Provider=" & IIf(Val(Application.Version) > 11, "Microsoft.ACE.OLEDB.12.0", "Microsoft.Jet.OLEDB.4.0") & ";" & _
              "User ID=Admin;" & _
              "Password="""";" & _
              "Data Source=""" & PatchFile & """;" & _
              "Mode=Share Deny None;" & _
              "Extended Properties="
End Function