how to connect to database in QTP

Example - Below Code will connect to database in MS-access and fetch data from std table 

Option Explicit 
Dim con,rs

 Set con=createobject("adodb.connection") 
Set rs=createobject("adodb.recordset") 

con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydb.mdb;Uid=Admin;Pwd=;" 
rs.open "select * from std",con 

Do while not rs.eof 
print rs.fields("c1") 
rs.movenext 
Loop

 'release memory 
Set rs= nothing 
Set con= nothing