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