QTP 访问SQL数据库

'ADO = Activex Data Object
'Adodb.Connection  打开库
'Adodb.Recordset    操作具体的表

Dim Conn 'as Adodb.Connection
Dim Rst ' as Adodb.Recordset 

Const strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\testdata.mdb;Persist Security Info=False"


Set Conn=CreateObject("Adodb.Connection")
Conn.Open strConn

Set Rst=CreateObject("Adodb.Recordset")
Rst.Open "select * from DriverData",Conn,2,2

Rst.movefirst
Do while Rst.EOF<>true
     msgbox Rst.Fields(0)
     msgbox Rst.Fields(1)

     Rst.MoveNext
   

Loop

Rst.Close
Conn.Close

Set Rst=Nothing
Set Conn=Nothing