Visual Basic - Ayuda con código para importar

Hola,
Tengo problemas con un código que hice para pasar los datos de una bd access a otra, (Error 3265 ADO no encontró el objeto en la colección que corresponde con el nombre o la referencia ordinal solicitada por la aplicación).
Me pueden ayudar??

Private Sub mnuImportar_Click()
Dim CnO As Connection, RsO As Recordset
Dim CnD As Connection, RsD As Recordset
Dim r As Long
Set CnO = New ADODB.Connection
Set CnD = New ADODB.Connection
CnO.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & txtOrigen & ""
CnD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & txtDestino & ";Jet OLEDB:Database Password=Mcv100"
Set RsO = New ADODB.Recordset
RsO.Open "Tabla_Origen", CnO, adOpenKeyset, adLockOptimistic
Set RsD = New ADODB.Recordset
RsD.Open "Tabla_Destino", CnD, adOpenKeyset, adLockOptimistic

While (Not RsO.EOF)
With RsD
.AddNew
.Fields("Issue by") = RsO.Fields("0" & r).Value
.Fields("Iata") = RsO.Fields("1" & r).Value
.Fields("Issue date") = RsO.Fields("2" & r).Value
.Fields("Option") = RsO.Fields("3" & r).Value
.Fields("Tkt") = RsO.Fields("4" & r).Value
.Fields("Agency") = RsO.Fields("5" & r).Value
.Fields("Type") = RsO.Fields("6" & r).Value
.Update
End With
r = r + 1
Wend
RsO.Close
Set RsO = Nothing
RsD.Close
Set RsD = Nothing
CnO.Close
CnD.Close
MsgBox "TERMINÓ!!!", "PRUEBA"
End Sub

lo mas probable es que el error se genere en alguna de estas lineas

Fields("Issue by") = RsO.Fields("0" & r).Value
.Fields("Iata") = RsO.Fields("1" & r).Value
.Fields("Issue date") = RsO.Fields("2" & r).Value
.Fields("Option") = RsO.Fields("3" & r).Value
.Fields("Tkt") = RsO.Fields("4" & r).Value
.Fields("Agency") = RsO.Fields("5" & r).Value
.Fields("Type") = RsO.Fields("6" & r).Value

posiblemente "Issue by", "lata", etc o "00",01", etc no son nombres de campos en sus respectivas tabas.