How to Connect oracle database through QTP SCRIPT

”””””””””””””””
Set objCon=CreateObject(“ADODB.Connection”)
Set objRec=CreateObject(“ADODB.Recordset”)
objCon.Open  “Driver={Oracle in OraHome92};” & “SERVER=”& Servicename &”;”& “UID=”&   Username &”;” &”PWD=”& Password &”;” &”DBQ=”& Servicename &”;”  “DRIVER={Oracle in OraHome92};SERVER={Servername};UID={Username};PWD={Password};DBQ={Dbnmae}”
objRec.Open “select  *  from users”,objCon
While( objRec.BOF eqv 0 )
objRec.MoveNext
Msgbox “Result” & objRec.Fields(0) &”   “& objRec.Fields(1)
Wend

objRec.Close
objCon.Close
Set objRec=Nothing
Set objCon=Nothing
Msgbox “Executed Sucessfully”