Vb6 And Excel Xp

[eranfox]

Hello Everybody,
i wrote the next code:
'-------------------------------------------------------------------------
Sub Main()
Dim StrDay As String
Dim StrMonth As String
Dim StrYear As String
Dim xlApp As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim EzorNo As String
Dim ToPath As String
Dim FromPath As String

EzorNo = "07"

Set xlApp = New Excel.Application
xlApp.Visible = True
xlApp.Workbooks.Open "\\myLib\myFolder\" & EzorNo & "\Base" & EzorNo & ".xlt"
xlApp.Run ("Adding")
xlApp.Quit
Set objWorkbook = Nothing
Set objWorksheet = Nothing
Set xlApp = Nothing

End Sub
'-------------------------------------------------------------------------
its working on Excel97 but it fails on ExcelXP

i'm using VB6 SP5 and i have office2000 on my computer...

thank you all in advance,
ERAN