[anestaki]

Καλησπέρα Γιώργο
Ευχαριστώ πάρα πολύ δεν μπόρεσα να χρησιμοποιήσω την Function δεν ξέρω γιατί άλλα την εκμεταλλευτικά πλήρως πιστεύω.

Private Sub Form_Load()
Me.Ετικέτα1.Caption = CurrentProject.Name
Dim fso, f
Dim X As Date
    On Error GoTo Err_Handler
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(CurrentDb.Name)
X = f.DateCreated
Me.Ετικέτα2.Caption = "Τελευταία ανανέωση " & X
Exit_sub:
    Set fso = Nothing
    Set f = Nothing
    Exit Sub
Err_Handler:
    X = Null
    Resume Exit_sub
End Sub