要比较Access记录集中的Outlook时间与当前时间，可以使用VBA代码来实现。以下是一个示例代码：

Sub CompareOutlookTime()
    Dim olApp As Object
    Dim olNamespace As Object
    Dim olFolder As Object
    Dim olItems As Object
    Dim olItem As Object
    Dim rs As Recordset
    Dim db As Database
    Dim strSQL As String
    
    ' 连接到Outlook应用程序和默认文件夹
    Set olApp = CreateObject("Outlook.Application")
    Set olNamespace = olApp.GetNamespace("MAPI")
    Set olFolder = olNamespace.GetDefaultFolder(9)  ' 9表示收件箱
    
    ' 连接到Access数据库
    Set db = CurrentDb
    
    ' 执行查询，获取需要比较的记录集
    strSQL = "SELECT * FROM YourTable"
    Set rs = db.OpenRecordset(strSQL)
    
    ' 循环遍历记录集
    rs.MoveFirst
    Do Until rs.EOF
        ' 获取Outlook中的时间
        Set olItems = olFolder.Items
        For Each olItem In olItems
            If olItem.ReceivedTime = rs.Fields("OutlookTime").Value Then
                ' 进行比较
                If olItem.ReceivedTime > Now() Then
                    MsgBox "Outlook时间较新！"
                Else
                    MsgBox "Outlook时间较旧！"
                End If
                Exit For
            End If
        Next olItem
        
        rs.MoveNext
    Loop
    
    ' 释放资源
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    Set olItems = Nothing
    Set olFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
End Sub

在这个示例中，我们使用了Outlook的COM对象模型来连接到Outlook应用程序和默认文件夹。然后，我们执行了一个查询，获取需要比较的Access记录集。接下来，我们循环遍历记录集，对于每条记录，我们在Outlook文件夹中查找与Access记录中的Outlook时间匹配的邮件项。然后，我们将Outlook时间与当前时间进行比较，并显示相应的消息框。最后，我们释放了所有使用的资源。

请注意，您需要根据实际情况更改代码中的数据库表名和字段名，以及Outlook文件夹的索引号。