error in db connection

[sarveshqtp]

Code:

Dim con,rs
Set con=CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.RecordSet")
con.Provider="DSN=pp;Description=no;UID=sa;PWD=******;APP=QuickTest Professional;WSID=PPI"
con.Open "192.168.1.2" ' this is server name
rs.Open "select * from dummies",con

I m using above code to establish connection with sqlserver2005 but error is coming
as "Provider cannot be found. It may not be properly installed"
while connecting through db checkpoint its working fine.
I m using qtp9.2
Thanks in Advance