Access - Búsqueda de datos de tabla vinculada

Public Sub Extraer()

    Dim rstOrigen As DAO.Recordset, _

        rstDestino As DAO.Recordset

    Set rstOrigen = CurrentDb.OpenRecordset("Tabla1")

    Set rstDestino = CurrentDb.OpenRecordset("Tabla2")

    Do While Not rstOrigen.EOF

        Do While InStr(1, rstOrigen!campo1, ": Arc Start") = 0 And Not rstOrigen.EOF 'Mientras no lleguemos al final ni sea Arc Start

            rstOrigen.MoveNext 'pasamos al siguiente registro

            If rstOrigen.EOF Then Exit Do

        Loop

        If rstOrigen.EOF Then Exit Do

        Do While InStr(1, rstOrigen!campo1, ": Arc End") = 0 And Not rstOrigen.EOF 'Mientras no lleguemos al final ni sea Arc End

            rstDestino.AddNew   'añadimos un nuevo registro en la tabla1

            rstDestino!campo1 = rstOrigen!campo1    'pasamos el dato

            rstDestino.Update

            rstOrigen.MoveNext  'Pasamos al siguinete registro de la tabla1

        Loop

        If Not rstOrigen.EOF Then

            rstDestino.AddNew   'añadimos un nuevo registro en la tabla1

            rstDestino!campo1 = rstOrigen!campo1    'pasamos el dato

            rstDestino.Update

        End If

    Loop

    rstOrigen.Close

    rstDestino.Close

    Set rstOrigen = Nothing

    Set rstDestino = Nothing

End Sub