Recordset - Inserimento dentro Fields

Dim Connection As ADODB.Connection = New ADODB.Connection()
        Connection.Open("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & TypeConn.PathDataBase & ";Jet OLEDB:Database PassWord=iw0blpiw0fnb;")
        Connection.Execute("Delete * from Temporanea")

Dim RS As ADODB.Recordset = New ADODB.Recordset()
        Dim Destino As ADODB.Recordset = New ADODB.Recordset()
        RS.Open(stringa, Connection, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
        Destino.Open("Select * from Temporanea", Connection, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

Dim I As Long

'While Not RS.EOF
        Destino.AddNew()

Destino.Fields("Condominio").Value = RS.Fields("Condominio").Value
        Destino.Fields("Indirizzo").Value = RS.Fields("Indirizzo").Value
        Destino.Fields("cap").Value = RS.Fields("cap").Value
        Destino.Fields("comune").Value = RS.Fields("comune").Value
        Destino.Fields("PIVA").Value = RS.Fields("PIVA").Value
        Destino.Fields("Codicefiscale").Value = RS.Fields("Codicefiscale").Value
        Destino.Fields("Mese").Value = RS.Fields("Mese").Value
        Destino.Fields("Gestione").Value = RS.Fields("Gestione").Value
        Destino.Fields("data").Value = RS.Fields("data").Value
        Destino.Fields("FatturaNumero").Value = RS.Fields("FatturaNumero").Value

Destino.Fields("Imponibile").Value = RS.Fields("Imponibile").Value
        Destino.Fields("AliquotaIva").Value = RS.Fields("AliquotaIva").Value
        Destino.Fields("iva").Value = RS.Fields("iva").Value
        Destino.Fields("TotaleFattura").Value = RS.Fields("TotaleFattura").Value
        Destino.Fields("AliquotaRitAcconto").Value = RS.Fields("AliquotaRitAcconto").Value
        Destino.Fields("RitAcconto").Value = RS.Fields("RitAcconto").Value
        Destino.Fields("totale").Value = RS.Fields("totale").Value
        Destino.Fields("pagamento").Value = RS.Fields("pagamento").Value
        Destino.Fields("Testo").Value = RS.Fields("Testo").Value
        Destino.Fields("TipoFatturazione").Value = RS.Fields("TipoFatturazione").Value

Destino.Fields("Periodo").Value = RS.Fields("Periodo").Value
        Destino.Fields("Anno").Value = RS.Fields("Anno").Value

Destino.Update()
        'RS.MoveNext()
        'End While
        Destino.Close()
        RS.Close()
        Connection.Close()

Dim stringa As String = "SELECT Condomini.Condominio, Condomini.Indirizzo, Condomini.cap, Condomini.comune, Condomini.PIVA, Condomini.Codicefiscale, Fatturazione.Mese as Mese2, Fatturazione.Gestione, Fatturazione.data, Fatturazione.FatturaNumero, Fatturazione.Imponibile, Fatturazione.AliquotaIva, Fatturazione.iva, Fatturazione.TotaleFattura, Fatturazione.AliquotaRitAcconto, Fatturazione.RitAcconto, Fatturazione.totale, Fatturazione.pagamento, Fatturazione.Testo, Condomini.TipoFatturazione, Scadenzario.Periodo, Scadenzario.Anno, Fatturazione.id, Scadenzario.Mese"
stringa = stringa & " FROM Condomini INNER JOIN ((Scadenzario RIGHT JOIN Appalti ON Scadenzario.IdAppalti = Appalti.id) INNER JOIN Fatturazione ON Appalti.id = Fatturazione.IdAppalto) ON Condomini.id = Appalti.IdCondominio"
stringa = stringa & " WHERE (((Scadenzario.Anno)=" & TextBox13.Text & ") AND ((Fatturazione.id)=" & TextBox0.Text & ") AND ((Scadenzario.Mese)='" & ComboBox2.Text & "'));"

Dim Connection As ADODB.Connection = New ADODB.Connection()
Connection.Open("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & TypeConn.PathDataBase & ";Jet OLEDB:Database PassWord=iw0blpiw0fnb;")
Connection.Execute("Delete * from Temporanea")

Dim RS As ADODB.Recordset = New ADODB.Recordset()
Dim Destino As ADODB.Recordset = New ADODB.Recordset()
RS.Open(stringa, Connection, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
Destino.Open("Select * from Temporanea", Connection, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

Dim I As Long

'While Not RS.EOF

Destino.AddNew()

Destino.Fields("Condominio").Value = RS.Fields("Condominio").Value
Destino.Fields("Indirizzo").Value = RS.Fields("Indirizzo").Value
Destino.Fields("cap").Value = RS.Fields("cap").Value
Destino.Fields("comune").Value = RS.Fields("comune").Value
Destino.Fields("PIVA").Value = RS.Fields("PIVA").Value
Destino.Fields("Codicefiscale").Value = RS.Fields("Codicefiscale").Value
Destino.Fields("Mese").Value = RS.Fields("Mese").Value
Destino.Fields("Gestione").Value = RS.Fields("Gestione").Value
Destino.Fields("data").Value = RS.Fields("data").Value
Destino.Fields("FatturaNumero").Value = RS.Fields("FatturaNumero").Value

Destino.Fields("Imponibile").Value = RS.Fields("Imponibile").Value
Destino.Fields("AliquotaIva").Value = RS.Fields("AliquotaIva").Value
Destino.Fields("iva").Value = RS.Fields("iva").Value
Destino.Fields("TotaleFattura").Value = RS.Fields("TotaleFattura").Value
Destino.Fields("AliquotaRitAcconto").Value = RS.Fields("AliquotaRitAcconto").Value
Destino.Fields("RitAcconto").Value = RS.Fields("RitAcconto").Value
Destino.Fields("totale").Value = RS.Fields("totale").Value
Destino.Fields("pagamento").Value = RS.Fields("pagamento").Value
Destino.Fields("Testo").Value = RS.Fields("Testo").Value
Destino.Fields("TipoFatturazione").Value = RS.Fields("TipoFatturazione").Value

Destino.Fields("Periodo").Value = RS.Fields("Periodo").Value
Destino.Fields("Anno").Value = RS.Fields("Anno").Value

Destino.Update()
'RS.MoveNext()

'End While

Destino.Close()
RS.Close()
Connection.Close()