1.首先需要安装mysql-connector-odbc-3.51.15-win32.msi（安装过程之间下一步就行）
(PS:需要注意的是odbc是32位还是64位取决于你计算机/远程计算机上的mysql是32位还是64位，而不取决于你电脑的系统强烈建议32位)
打开控制面板 --》 管理工具
双击 数据源（ODBC）
点击 添加
选择mysql odbc 5.1 driver --》 点击完成
填写data source name （DSN），之后在程序中要用到
填写server地址，一般为localhost， 如果为远程计算机则填写远程地址
填写 用户名、密码、数据库名称 --》 点击测试
如果测试成功的话，则odbc设置完毕，点击ok完成数据源添加
2.下面就是在vbs程序中使用了：
————————————————
Sub OnClick(ByVal item)
'提示：
' 1. 使用 <CTRL+SPACE> 或 <CTRL+I> 快捷键打开含所有对象和函数的列表
' 2. 使用 HMI Runtime 对象写入代码。
' 示例：HmiRuntime.Screens("Screen_1")。
' 3. 使用 <CTRL+J> 快捷键创建对象引用。
'从此位置起写入代码：
Dim adoConn
Dim ConnectionStr
Dim adoRst
Dim sqlStr
ConnectionStr="DSN=mysql;SERVER=127.0.0.1;UID=root;PWD=byme;PORT=3306;DATABASE=cssc"
Set adoConn = CreateObject("ADODB.Connection")
adoConn.Open ConnectionStr
If adoConn.State = 1 Then
MsgBox "OK"
Else
MsgBox "NG"
End If
'读取数据库
'下面语句为查询数据库SELECT语句
Dim sSql,oRs,oCom
sSql="SELECT M10_S_1 FROM 缓存表 WHERE 主码ID=2"
'标准的数据库操作属性和方法
Set oRs=CreateObject("ADODB.Recordset")
Set oCom=CreateObject("ADODB.Command")
Set oCom.ActiveConnection=adoConn
oCom.CommandType=1
oCom.CommandText=sSql
Set oRs=oCom.Execute
MsgBox oRs.Fields(0).Value
' 注销对象
oRs.close '关闭记录集
Set oRs=nothing '释放对象
adoConn.close '关闭连接
Set adoConn=nothing '释放对象
End Sub
==========================备注===========================
一、oCom.Execute的返回值oRs是一个结果集合
oRs.Fields中只包含首行值，如果数据为多行的话需要配合以下方式遍历读取
Do Until oRs.EOF
TODO...
oRs.MoveNext
Loop
二、IsNull(Tag) 可以判断变量是否为null