General run Error

[akhandesh]

After executing the below code..i am getting object does not support at highlighted lines..
please have a look at it..
and reply me.

Object doesn't support this property or method: 'FindObject(...).select'

Function file: C:\Program Files\HP\QuickTest Professional\Tests\func_Lib_1.vbs
Line (22): " FindObject(ObjectName).select Data"


Function openbrowser(iexplore)
systemutil.Run "iexplore"
End Function

Function navigate(url)
browser("creationtime:=0").Navigate "http://salesforce.com"
browser("creationtime:=0").Sync
End Function

Function input(ObjectName,data)
FindObject(ObjectName).Set "akhan"
input="pass"
End Function


Function Login(object)
FindObject(ObjectName).click
Login="pass"
End Function

Function SelectList(ObjectName,Data)
FindObject(ObjectName).select Data
SelectList="pass"
End Function

---

is anybody there to give me the answer for above code.??
please suggest something so that i get it worked.