Private Sub контроль_Click()
'если значение поля  dateControl из таблицы1 больше, чем сегодня, тогда
    If Date <= DateValue(Me.Поле4) Then
        MsgBox "действующая версия"
    Else
'иначе
        MsgBox "версия устарела"
    End If
End Sub