Rifacendomi all'esempio proposto nel primo post della discussione, se ho ben capito la tua esigenza, puoi prendere spunto da queste righe di codice:
codice:
Do Until rs.EOF
    If CAMPO1 <> OldValue Then
        Debug.Print CAMPO1 & vbTab & CAMPO2
        OldValue = CAMPO1
    Else
        Debug.Print Chr(34) & vbTab & CAMPO2
    End If
    rs.movenext
Loop
Ciauz

Chico