[Χρήστος]

Αντικατέστησα το τμήμα:
Set rs = CurrentDb.OpenRecordset("Dates", dbOpenTable)
Με:
Dim ExternalDB As DAO.Database
Set ExternalDB = DBEngine.Workspaces(0).OpenDatabase("βάλε το path της Backend μέσα στα εισαγωγικά πχ C:\Φάκελος\Υποφάκελος\βάση.ac cdb", False, False, ";pwd=κωδικός της Backend") 'προσοχή στο ερωτηματικό
Set rs = ExternalDB.OpenRecordset("Dates", dbOpenTable)

-Αν δεν έχεις κωδικό στην Back End όρισέ το έτσι:
Set ExternalDB = DBEngine.Workspaces(0).OpenDatabase("βάλε το path της Backend μέσα στα εισαγωγικά πχ C:\Φάκελος\Υποφάκελος\βάση.ac cdb")

Καμιά άλλη αλλαγή δεν έκανα...μήπως έχεις office 2010;