Option Explicit

Const dbDriverNoPrompt = 1
Const dbUseODBC = 1

Dim SQL
Dim DAO, W, C, R
Dim MysqlHost, MysqlPwd, MysqlUID, MysqlDB
Dim ConnectStr, DriverStr

MysqlHost = ""
MysqlUID  = ""
MysqlPwd  = ""
MysqlDB   = ""

'DriverStr = "MySQL ODBC 3.51 Driver"
DriverStr = "MySQL ODBC 5.1 Driver"

ConnectStr = "ODBC;SERVER=" & MysqlHost & ";DRIVER=" & DriverStr & ";PWD=" & MysqlPwd & ";DATABASE=" & MysqlDB & ";UID=" & MysqlUID

Set DAO = CreateObject("DAO.DBEngine.36")

Set W = DAO.CreateWorkspace("myODBC", "", "", dbUseODBC)

Set C = W.OpenConnection("", dbDriverNoPrompt, False, ConnectStr)

SQL = "Select {any varchar/char field) From {any table}"
Set R = C.OpenRecordset(SQL) 

'This will always return (actual field size) + 1
WScript.echo R.Fields("{any varchar/char field)").Size