Unable to Initialize oBusObj ( OLE error 424)

SUGGESTED

Hello Every one

I am running a script to get line level values in sales order,

I am getting a "OLE error 424" error, can any one please help 

Code:

******************************************************************

Dim taxReqXML
Dim intx
dim name
dim count
dim tx_sch
count=1
intx = ""
name=""
tx_sch=""
'Doc number
retx = oBusObj.GetValue("SalesOrderNo$",intx)

********************************************************

i am getting the error in the last line