General run error

[vijay44]

hi,
I am using the below code

Code:

Set oShell = CreateObject("WScript.Shell")
       sCurrDir=oShell.CurrentDirectory
    pCurrpath=Split(sCurrDir,"\")
     For i=0 to ubound(pCurrpath)-2
    sCurrentPath=sCurrentPath & pCurrpath(i) &"\"
      Next
       InputXls=sCurrentPath &"\Data\ICentral.xls"
         Datatable.AddSheet("ICentral")
    Datatable.ImportSheet ""&InputXls&"","ICentral","ICentral"

I am getting general run error at

Code:

InputXls=sCurrentPath &"\Data\ICentral.xls"

Any help will be really appreciated.
Regards;
Vijay