รบกวนสอบถาม VB6 ติดต่อกับฐานข้อมูล MySQL ที่อยู่บน Server (เชื่อมต่อผ่านอินเตอร์เน็ต) ครับ

Option Explicit
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim username As String
Dim passwd As String
Dim serverIP As String
Dim db As String
Public Function connectMysql(username As String, passwd As String, serverIP As String, db As String, conn As ADODB.Connection, rs As ADODB.Recordset)
   Set conn = New ADODB.Connection
   Set rs = New ADODB.Recordset
   conn.CursorLocation = adUseClient
   conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & serverIP & ";UID=" & username & ";PWD=" & passwd & ";DATABASE=" & db & ";" _
   & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 163841
   conn.Open
End Function

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim username As String
Dim passwd As String
Dim serverIP As String
Dim db As String
Dim ssql As String
Call connectMysql("root", "", "mydomain.com", "myerp", conn, rs)

ssql = "SELECT * FROM accmaster"
rs.Open ssql, conn

Set DataGrid1.DataSource = rs