[Tasos]

Αλέξανδρε για να ανοίγει η φόρμα εμφανίζοντας την παγκόσμια ημέρα που (ίσως) ταιριάζει με την τρέχουσα ημερομηνία,
στην κύρια φόρμα του παραδείγματος αντικατέστησε τον κώδικα του συμβάντος Form_Load() με τον παρακάτω:

Private Sub Form_Load()
    Dim rs As Object
    Set wb = Me.WebBrowser1.Object
    Me.ID = Null
    Me.InternationalDay = Null
    ParentIsLoaded = True
    Set rs = Me.subfrmDays.Form.Recordset.Clone
    rs.FindFirst "dtDate=" & "#" & Format(Date, "m/d/yyyy") & "#"
    If Not rs.NoMatch Then
        Me.subfrmDays.Form.Bookmark = rs.Bookmark
    Else
        wb.Navigate "about:blank"
    End If
End Sub

Ο κώδικας του μηνύματος σου δεν νομίζω να χρειαστεί εκτός και αν δεν έχω καταλάβει σωστά.

Θα χρειαστεί μόνο να ανοίγεις τη φόρμα frmMain μετά το Login.

Καλό βράδυ!

Τάσος