Tools-->References'e "Microsoft Office 16.0 Access database engine Object Library"yi ekleyin.
Örnek kod da aşağıdaki gibidir efendim.

Function ExcelConnAccess(SicilNo As Long) As String

   Set Db = DAO.DBEngine(0).OpenDatabase("D:\DOSYALAR\AccessDB\Parametre.accdb")

   Set rs = Db.OpenRecordset("SELECT OrnekAlan FROM OrnekTablo WHERE Sicil=" & SicilNo & ";")

   ExcelConnAccess = rs("OrnekAlan")

   

   rs.Close

   Db.Close

   

End Function