VB遠程訪問mysql（ODBC）

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

' 定義數據庫連接字符串變量
Dim strCn As String

' 定義數據庫連接參數變量
Dim db_host As String
Dim db_user As String
Dim db_pass As String
Dim db_data As String

' 定義 SQL 語句變量
Dim sql As String

' 初始化數據庫連接變量
db_host = "****"
db_user = "root" '用戶名
db_pass = "****" '用戶密碼
db_data = "mydata" '數據庫名

' MySQL ODBC 連接參數
'+------------+---------------------+----------------------------------+
'| 參數名     | 默認值               | 說明                             |
'+------------+------------------------------------------------------–+
'| user       | ODBC (on Windows)   | MySQL 用戶名                     |
'| server     | localhost           | MySQL 服務器地址                 |
'| database   |                     | 默認連接數據庫                   |
'| option     | 0                   | 參數用以指定連接的工作方式       |
'| port       | 3306                 | 連接端口                         |
'| stmt       |                     | 一段聲明, 可以在連接數據庫後運行 |
'| password   |                     | MySQL 用戶密碼                   |
'| socket     |                     | (略)                             |
'+------------+---------------------+----------------------------------+

' 詳細查看官方說明
' http://dev.mysql.com/doc/refman/5.0/en/myodbc-configuration-connection-parameters.html

strCn = "DRIVER={MySQL ODBC 8.0 ANSI Driver};" & _
         "SERVER=" & db_host & ";" & _
         "DATABASE=" & db_data & ";" & _
         "UID=" & db_user & ";PWD=" & db_pass & ";" & _
         "OPTION=3;stmt=SET NAMES GB2312"

' stmt=SET NAMES GB2312
' 這句是設置數據庫編碼方式
' 中文操作系統需要設置成 GB2312
' 這樣中文才不會有問題
' 版本要求 mysql 4.1+

' 連接數據庫
cn.Open strCn
' 設置該屬性, 使 recordcount 和 absolutepage 屬性可用
cn.CursorLocation = adUseClient

' 訪問表 table1
sql = "select * from student"
rs.Open sql, cn

Dim nicheng As String

'加載用戶暱稱
nicheng = rs.Fields(0)
MsgBox nicheng
End Sub
忘了在哪兒抄的，是可行的，正在搗鼓怎麼解決VB6 在win7 64位下不能鏈接到ODBC上的數據源的問題。