[Χρήστος]

καλησπέρα
Κάτω απ' το
Me.Painting = False

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

και χρησιμοποίησα κι εγώ την calendar.mdb σε split βάση με κωδικό στην Backend.
Αν κάποιος έχει να προτείνει μια καλύτερη λύση βεβαίως να την
υιοθετήσω.