QTP获取显示mysql里面的数据

Browser("TestLink - Login").Page("TestLink - Login").WebEdit("login").Set "xing"
Browser("TestLink - Login").Page("TestLink - Login").WebEdit("password").SetSecure "4a67f8d1997f3be612a36c446be3"
Browser("TestLink - Login").Page("TestLink - Login").WebButton("Login").Click
Dim res , cmd ,sql,cnn,strcun
set cnn=createobject("adodb.connection")
Set res=createobject("adodb.recordset")
Set cmd=createobject("adodb.command")
strCnn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=testlink;USER=root;Option=3"
cnn.open strcnn
set  cmd.activeconnection=cnn
cmd.commandtype=1
sql="SELECT * FROM `users` WHERE login = 'xing'"
cmd.commandtext=sql
Set res=cmd.execute()
msgbox res("login")
Set res = nothing
Set cmd.ActiveConnection = nothing
Set Cmd= nothing

Browser("TestLink - Login").Page("TestLink 1.7.4").Frame("titlebar").Link("Logout").Click