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

[KVK]

Hi

Try this

Initial Catalog is the database that u want to use..

Code:

sConstr="Provider=sqloledb;Data Source=192.168.1.2;Initial Catalog=DBtest;User ID=sa;Password=******;"
Set Db_Connection = CreateObject("ADODB.Connection")
Db_Connection.open sConstr
Db_Connection.Execute "select * from dummies"

[sarveshqtp]

Thanx It was perfect.