Numeric field overflow. (Error 3349)

[Kent.Gallinger]

I am also getting the Error 3349 message when trying to access an Excel
spreadsheet as a database - it occurs when trying to read a long zip
code with a dash in it. How do I make rs.value a Double or convert the
zip to a string? Here is the VB code:

Dim dbtmp As DAO.Database
Dim tblObj As DAO.TableDef
Dim rs As DAO.Recordset
Dim strResult As String
Set dbtmp = OpenDatabase("c:\my documents\CurrentOE5AddressBook.xls",
False, True, "Excel 8.0;")

DoEvents
Set rs = dbtmp.OpenRecordset("select * from `myData`")
While Not rs.EOF
For x = 0 To rs.Fields.Count - 1
Debug.Print rs.Fields(x).Value
Next
rs.MoveNext
Wend

 

[peregenem]

I am also getting the Error 3349 message when trying to access an Excel
spreadsheet as a database - it occurs when trying to read a long zip
code with a dash in it. How do I make rs.value a Double or convert the
zip to a string?

This may help you

http://www.dicks-blog.com/archives/2004/06/03/external-data-mixed-data-types/