"Big H дµÀ£º
"
Hi there,

In the house I run office xp, at work I am not sure if its excel 97 or excel
2000. Is there any way of checking this out.

I am having problems with ADO at work yet at home the code works fine?

regards Harry

Excel Application:

Msgbox Application.Version

2003 -- 11
Xp -- 10
2000 -- 9

Excel File last written version:

MsgBox ThisWorkbook.CalculationVersion

something like
114210 where 11 is the Excel Version
0 means no calculation made before save

Another VBA

Sub xlFileVersion()
Dim Typ As String
Select Case ActiveWorkbook.FileFormat
Case -4143: Typ = "Excel 2000 et plus"
Case 16: Typ = "Excel 2.1"
Case 29: Typ = "Excel 3"
Case 33: Typ = "Sheet Excel 4"
Case 35: Typ = "Workbook Excel 4"
Case 39: Typ = "Excel 5"
Case 43: Typ = "Excel 97/2000& 5/95"
Case Else: Typ = "Unknown"
End Select
MsgBox "File format: " & Typ & " !", 64
End Sub