How to access Database in QTP

Example - 

Code below can be used to access database from QTP.


Set db = createobject("ADODB.Connection")
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\priyanka\vb6\admission_project.mdb;Persist Security Info=False"

Set rst = createobject("ADODB.Recordset")

rst.Open "select * from Course ", db,3

id = rst.RecordCount

For i=0 to id-1
print rst.fields(0) & rst.fields(1) & rst.fields(2) & rst.fields(3)
rst.Movenext
Next


This is how we can access database from QTP. Its easy !!!