Visual Basic - Insert Into Limitante

estoy tratando de hacer una rutina que me agrege registros nuevos provenientes de una hoja de excel que contiene 6000 registros a mi tabla pero me encentro con el problema que solo me llega a crear 2341 registros y mi hoja de excel es de 6000 prodcutos entonces me manda un error de desbordamiento no se si se deba a que solo se pueden crear hasta 2341 registros progresivamente o tiene alguna limitante,por que no encuentro como librarme de este error espero me ayuden amigos de la web

Sub CARGAR()
Dim conn As New ADODB.Connection
Dim rcsx As New ADODB.Recordset
Dim w As Integer
i = 0
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & nombrefichero & ";" & _
"Extended Properties=""Excel 8.0;HDR=yes;"""

rcsx.Open "SELECT * FROM [ACTUALIZACION$]", conn, adOpenStatic, adLockOptimistic
Do While Not rcsx.EOF
i = i + 1
CmNEW2(0) = rcsx!prov
CmNEW2(1) = rcsx!codigo
CmNEW2(2) = "00000000000000"
CmNEW2(3) = rcsx!Descripcion
CmNEW2(4) = rcsx!Empaque
CmNEW2(5) = rcsx!Ext
CmNEW2(6) = rcsx!precio
CmNEW2.Execute ***********---->Aqui es donde se situa el error
rcsx.MoveNext
Loop
MsgBox "Numero de Articulos Cargados: " & w & " !" & (Chr(13) & Chr(10)) & "Numero de Articulos Actualiazdos " & i & " !", vbOKOnly, "SUFASOFT"
End Sub