desbordamiento en campo numérico al consultar celdas de excel desde access

[Nanahara]

hola compas quisiera que me ayuden con este problema
tengo que hacer una búsqueda en varios registros de una hoja de excel y cree la siguiente conexión

Código:

  Dim base As Database
  Dim re As Recordset
  Dim ssql As String

    If Ruta <> "" Then
     Set base = OpenDatabase(Ruta, False, False, "Excel 8.0; HDR = Yes;")
     ssql = "select * from [Hoja1$]"
     Set re = base.OpenRecordset(ssql)
     Listado.AddItem re.Fields("COD")
   Else
    MsgBox "No se ha Seleccionado archivo", vbOKOnly, "Alerta"
   End If

pero al llegar a cierto dato me manda el mensaje de desbordamiento en campo numérico, ya intente usar una variable long pa guardar el dato pero me manda el mismo error y este error me sucede en tres celdas de excel y en una solo hay un 4 no debe de haber desbordamiento si solo es un 4

Espero que me apoyen con este problema

[Lba]

Nanahara

No si solucionaste el problema, pero ya tengo algo parecido en access con una tabla vinculada, ejeucto una consulta y la segunda vez me manda este mensaje.

El tema es del 10/01/2013.


Gracias desde ya y Feliz Año

Atte.
Lba