Access - Recorrer registros de fomulario hasta encontrar un textbox con texto

Set Reg = Me.Recordset

    DoCmd.GoToRecord , , acFirst

    While Not Reg.EOF

    Reg.MoveNext

    Wend

End Sub

Private Sub cmdRecorrer_Click()

    Dim Rst As DAO.Recordset            'Definimos la variable para el recordset

    Set Rst = Me.RecordsetClone         'Abrimos el clon del recordset del formulario

    'Situamos Rst en el registro actual del formulario

    Rst.FindFirst "IdRegistro = " & Me.IdRegistro 'IdRegistro será la clave principal del recordset del formulario

    Do While Not Rst.EOF                'Mientras queden registros

        Rst.MoveNext                    'Vamos al siguiente registro

        If Not IsNull(Rst!Campo) Then   'El campo que de origen al cuadro de texto

            Exit Do

        End

    Loop

    If Not Rst.EOF Then             'Si el campo no está vacío

        Me.Bookmark = Rst.Bookmark  'Situamos el fomulario en dicho registro

    Else

        Beep                        'Emitimos un pitido

    End If

End Sub