Access - Asignación de filas a campos

Dim rstOrigen3 As DAO.Recordset, _

    rstDestino3 As DAO.Recordset

Set rstOrigen3 = CurrentDb.OpenRecordset("Tabla2")

Set rstDestino3 = CurrentDb.OpenRecordset("Tabla3")

Do While Not rstOrigen3.EOF

    Do While InStr(1, rstOrigen3!JobSpeed, "mm/sec") = 0 And Not rstOrigen3.EOF 'Mientras no lleguemos al final ni contenga mmsec

            rstDestino3.AddNew

            rstDestino3!Job = rstOrigen3!JobSpeed

            rstDestino3.Update

            rstOrigen3.MoveNext

            If rstOrigen3.EOF Then Exit Do

    Loop

            Do While InStr(1, rstOrigen3!JobSpeed, "FINE") = 0 And Not rstOrigen3.EOF

                 rstDestino3.Edit

                 rstDestino3!Vel1 = rstOrigen3!JobSpeed

                 rstDestino3.Update

                 rstOrigen3.MoveNext

                 If rstOrigen3.EOF Then Exit Do

            Loop

                 rstDestino3.Edit

                 rstDestino3!Vel2 = rstOrigen3!JobSpeed

                 rstDestino3.Update

                 rstOrigen3.MoveNext

                 If rstOrigen3.EOF Then Exit Do

Loop

    rstOrigen3.Close

    rstDestino3.Close

    Set rstOrigen3 = Nothing

    Set rstDestino3 = Nothing

Public Function Encadena() As String

Dim rstOrigen As DAO.Recordset, L_Job As Long, L_Vel1 As String, L_Vel2 As String, Cuenta&

Set rstOrigen = CurrentDb.OpenRecordset("Tabla2", , dbReadOnly)

With rstOrigen

.MoveLast: .MoveFirst

If .RecordCount = 0 Then Encadena = "no hay datos": Exit Function

Do While Not .EOF

    If InStr(!jobspeed, "/") = 0 And Val(!jobspeed) <> 0 Then

        If L_Job <> 0 And Len(Trim(L_Vel1 & L_Vel2)) <> 0 Then CurrentDb.Execute "insert into tabla3 (job, vel1, vel2) values(" & L_Job & ", '" & L_Vel1 & "', '" & L_Vel2 & "')": Cuenta = Cuenta + 1

        L_Job = Val(!jobspeed): L_Vel1 = "": L_Vel2 = ""

        Else

        If InStr(!jobspeed, "FINE") <> 0 Then L_Vel1 = !jobspeed

        If InStr(!jobspeed, "CMD") <> 0 Then L_Vel2 = !jobspeed

        End If

    .MoveNext

    Loop

If L_Job <> 0 And Len(Trim(L_Vel1 & L_Vel2)) <> 0 Then CurrentDb.Execute "insert into tabla3 (job, vel1, vel2) values(" & L_Job & ", '" & L_Vel1 & "', '" & L_Vel2 & "')": Cuenta = Cuenta + 1

.Close

End With

Set rstOrigen = Nothing

Encadena = "Se añadieron " & Cuenta & " nuevos registros"

End Function