I'm writing a utility to import data from Lotus 123 spreadsheets. I'm using DAO 3.6 and the following code in VB6 (SP4):

Set oWorkspace = DBEngine.CreateWorkspace("JetWorkspace", "admin", "", dbUseJet)
Set oDatabase = oWorkspace.OpenDatabase("C:\Temp\LotusFile.WK3", False, True, "Lotus WK3; HDR=NO; IMEX=1;")
Set oRecordset = oDatabase.OpenRecordset(oDatabase.TableDefs(0).Name, dbOpenSnapshot, 0, dbReadOnly)

All data is imported, but some numeric cells have ".00" appended. Normally, this would not be a problem, but in this case I need the data brought in exactly as it was in the spreadsheet. 1 <> 1.00

BTW, Lotus Spreadsheets were created using Lotus 123 '97. Excel 97 spreadsheets import accurately using the same technique.