在使用ADODB.RecordSet对象时，可以使用MoveNext方法来逐行移动记录。如果想要每次递增2行，可以在MoveNext方法前再调用一次MoveNext方法。下面是一个示例代码：

Dim conn As ADODB.Connection
Dim rs As ADODB.RecordSet

' 创建连接对象
Set conn = New ADODB.Connection
conn.ConnectionString = "Your_Connection_String"
conn.Open

' 创建RecordSet对象
Set rs = New ADODB.RecordSet
rs.ActiveConnection = conn
rs.Open "SELECT * FROM Your_Table"

' 逐行遍历记录
Do Until rs.EOF
    ' 处理当前记录

    ' 递增2行
    rs.MoveNext
    rs.MoveNext
Loop

' 关闭连接和释放对象
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

在上述示例代码中，首先创建了一个Connection对象并打开连接。然后创建了一个RecordSet对象，并将其与连接关联，并打开了一个SELECT查询的结果集。

在循环中，首先处理了当前记录，然后调用rs.MoveNext方法两次，以实现每次递增2行。这样可以跳过下一行，直接进入下下一行。

最后，关闭了RecordSet对象和连接，并释放了相关的对象。

请注意，示例代码中的Your_Connection_String和Your_Table需要根据实际情况进行替换。