Akkumulering af felter i access -

Jeg har nedenstående kode.
Den akkumulere alle felter i en tabel til venstre,
er der en som kan skrive den om så den gør det samme men blot mod højre.

Private Sub Kommandoknap0_Click()

    Dim db As Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("adresser")
    Do While Not rs.EOF
        If rs.Fields.Count > 2 Then
            ' Vi antager, at felt 0 er Id feltet, og at resten af felterne er de felter, der skal reorganiseres...
            For x = 1 To rs.Fields.Count - 2
                If IsNull(rs.Fields(x)) Then
                    'Det testede felt indeholder Null, finde det næste felt, som indeholder en værdi...
                    For y = x + 1 To rs.Fields.Count - 1
                        If Not IsNull(rs.Fields(y)) Then
                            rs.Edit
                            rs.Fields(x) = rs.Fields(y)
                            rs.Fields(y) = Null
                            rs.Update
                            Exit For
                        End If
                    Next
                End If
            Next
        End If
        rs.MoveNext
    Loop
End Sub