VB6连接MySQL问题？报数据源错误

Question

VB6我先前连接Access数据库的，现在装了MySQL，一切装备就绪，理解了半天就连不上了，哪位先生帮忙指引一下，谢谢

CN.Provider = "MSDASQL"CN.ConnectionString = "driver={mysql odbc 5.3 ANSI driver};server=_192.168.59.128;port=_3306;uid=root;pwd=cfgde2003;database=cfg2021;OPTION=_3;stmt=SET NAMES GB2312"

CN.Open ’运行到这来报错

If CN.State = adStateOpen Then _MsgBox "连接成功", vbOKOnly, "提示"CN.Close