請教：VBScript连接MySQL的问题

[Rimifon]

代码如下：
'==========================================================
Host="xxx.9966.org"
Port="3306"
Data="Guest"
User="Guest"
Pass=""
connstr="Driver={MySQL ODBC 3.51 Driver};Server="+Host+";Port="+Port+";Database="+Data+";"
set conn=CreateObject("ADODB.Connection")
set rs=CreateObject("ADODB.Recordset")
conn.open connstr,User,Pass
sql="select * from GuestBook"
rs.open sql,conn,1
a=0+rs.recordcount
rs.Close
conn.Close
set rs=nothing
set conn=nothing
msgbox chr(10)&"共找到纪录："&a&" 条。",0,"MySQL 连接测试"
'===========================================================

将以上代码另存为mysql.vbs，双击后，提示找到-1条纪录，就算没纪录也应该是0呀，怎么回事？谁能帮忙解决一下？？
注：需要MySQL ODBC 3.51 Driver支持，下载地址为：http://xxx.9966.org/Soft/MyODBC.exe