Connecting to MS Access Database through QTP

Option Explicit
Dim con, rs

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

con.provider="microsoft.jet.oledb.4.0"
con.open "c:\db1.mdb"

rs.open "select * from emp", con

Do while rs.eof="False"
msgbox rs.fields("v1")
msgbox rs.fields("v2")
rs.movenext
Loop