以下是一个使用ADO Recordset过滤器比较两个字段的示例代码：

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

' 建立数据库连接
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb"
conn.Open

' 执行SQL查询并获取结果集
rs.Open "SELECT * FROM your_table", conn

' 过滤记录集并比较两个字段
rs.Filter = "Field1 > Field2"

' 遍历过滤后的记录集
Do Until rs.EOF
    ' 处理每一条记录
    ' 可以通过rs.Fields("Field1").Value和rs.Fields("Field2").Value获取字段值

    rs.MoveNext
Loop

' 关闭记录集和数据库连接
rs.Close
conn.Close

上述代码中，我们首先建立了一个数据库连接并打开它。然后执行了一个SQL查询并获取了记录集。接下来，我们使用rs.Filter属性来设置过滤条件，比较了两个字段Field1和Field2的值。最后，通过循环遍历过滤后的记录集，处理每一条记录。

请注意，上述代码中的your_table应替换为实际的表名，Field1和Field2应替换为实际的字段名。另外，连接字符串conn.ConnectionString中的数据库路径也需要替换为实际的数据库文件路径。