¿Cómo evitar desbordamiento en campo numérico en consultar celdas de excel desde access?

Hola expertos espero que me apoyen con este problema

cree una conexión a libro de excel desde access para consultar algunos de sus datos

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)
  Do While Not re.EOF
    Listado.AddItem re.Fields( COD )
  Loop
  Else
 MsgBox No se ha Seleccionado archivo , vbOKOnly, Alerta 
 End If

pero al llegar a consultar el valor de una celda me manda el error de desbordamiento en campo numérico, ya use una variable long para almacenar el dato pero igual manda el error y esto me sucede en otras 2 celdas de excel y en una de ellas solo contiene un 4 la cual no debe de causar el desbordamiento ya que solo es un 4. Quisiera que me apoyen al solucionar este problema