QTP连接MySQL数据库

Set Conn = CreateObject("ADODB.Connection" )
str="DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.3.*;DATABASE=db_yomovo2009;user id=*; password=*;Option=3"
Conn.open str
Set Rs = CreateObject ("ADODB.Recordset" )
sql = "select attribute from yo_accounts limit 0,6"
Rs.open sql,Conn,1,3
Do While not Rs.eof
attribute=Rs("attribute")
MsgBox attribute
Rs.MoveNext
Loop

Rs.close
Set Rs = Nothing
Conn.close
Set Conn = Nothing