saltare prima riga su import di excel in access

[giovivent]

ciao a tutti! ho questo codice con cui faccio l'import di un foglio excel in una tabella di access. ora come faccio a dire al ciclo di saltare l'import della prima riga?

Set rstAccess = Server.CreateObject("ADODB.Recordset")
    rstAccess.Open "produzione", cnnAccess, adOpenKeyset, adLockOptimistic, adCmdTable
    Response.Write "Access Recordset loaded
"

    'Synchronize Recordsets and Batch Update
    Do Until rstExcel.EOF
        With rstAccess
            .AddNew
            .Fields("CONTACTACT_CODE") = rstExcel.Fields(0).Value
            .Fields("CONTACTCNT_DATE") = rstExcel.Fields(1).Value
            .Fields("CONTACTCNT_TIME") = rstExcel.Fields(2).Value 
            .Fields("CONTACTOUTC_CODE") = rstExcel.Fields(3).Value
            .Fields("CONTACTOP_ID") = rstExcel.Fields(4).Value
            .Fields("AZIENDEID_AZ") = rstExcel.Fields(5).Value
            .Fields("AZIENDEFORMA_SOCIETARIA") = rstExcel.Fields(6).Value
            .Fields("AZIENDERAG_SOC_1") = rstExcel.Fields(7).Value
            .Fields("AZIENDERAG_SOC_2") = rstExcel.Fields(8).Value
            .Fields("AZIENDECAP") = rstExcel.Fields(9).Value
            .Fields("AZIENDEINDIRIZZO") = rstExcel.Fields(10).Value
            .Fields("AZIENDELOCALITA") = rstExcel.Fields(11).Value
            .Fields("AZIENDEPROVINCIA") = rstExcel.Fields(12).Value
            .Fields("AZIENDEREGIONE") = rstExcel.Fields(13).Value
            .Fields("AZIENDEREFERENTE_1") = rstExcel.Fields(14).Value
            .Fields("AZIENDEMANSIONE_1") = rstExcel.Fields(15).Value
            .Fields("AZIENDEDIRETTO_1") = rstExcel.Fields(16).Value
            .Fields("AZIENDESITO_WEB") = rstExcel.Fields(17).Value
            .Fields("AZIENDEE_MAIL") = rstExcel.Fields(18).Value
            .Fields("AZIENDENUM_FAX") = rstExcel.Fields(19).Value
            .Fields("AZIENDETELEFONO_1") = rstExcel.Fields(20).Value
            .Fields("AZIENDETELEFONO_2") = rstExcel.Fields(21).Value			
            .Fields("AZIENDECATEGORIA") = rstExcel.Fields(22).Value
            .Fields("AZIENDETELEFONO_3") = rstExcel.Fields(23).Value
            .Fields("AZIENDETELEFONO_4") = rstExcel.Fields(24).Value
            .Fields("AZIENDEMACROSETTORE") = rstExcel.Fields(25).Value
            .Fields("AZIENDEPRIORITA_DI_CONTATTO") = rstExcel.Fields(26).Value
            .Fields("DOMANDE_STANDARDDOMANDA_1") = rstExcel.Fields(27).Value
            .Fields("DOMANDE_STANDARDDOMANDA_2") = rstExcel.Fields(28).Value
            .Fields("DOMANDE_STANDARDDOMANDA_3") = rstExcel.Fields(29).Value			
            .Fields("DOMANDE_STANDARDDOMANDA_4") = rstExcel.Fields(30).Value
            .Fields("DOMANDE_STANDARDDOMANDA_5") = rstExcel.Fields(31).Value
            .Fields("DOMANDE_STANDARDDOMANDA_6") = rstExcel.Fields(32).Value
            .Fields("DOMANDE_STANDARDDOMANDA_7") = rstExcel.Fields(33).Value
            .Fields("DOMANDE_STANDARDDOMANDA_8") = rstExcel.Fields(34).Value			
            .Fields("CONTACTNOTE_TEXT") = rstExcel.Fields(35).Value				
			
			
        End With
            rstExcel.MoveNext
    Loop
    rstAccess.UpdateBatch
    Response.Write "Excel data written to Access
"

[giovivent]

il salto della prima riga era relativo all'hdr impostato su no.
ma perchè ora si blocca sulla

.Fields("CONTACTCNT_TIME") = rstExcel.Fields(2).Value

considerando che i nome campo sono perfetti?

l'errore che mi restituisce è: Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto.