DIM CN AS NEW ADODB.CONNECTION
Set cn = New ADODB.Connection
cn.Provider = "MSDASQL"
cn.ConnectionString = "driver={mysql odbc 5.1 driver};server=" _
& Text1.Text & ";port=" _
& Text4.Text & ";uid=" _
& Text2.Text & ";pwd=" _
& Text3.Text & ";database=db_account;OPTION=3"
cn.Open
If cn.State = adStateOpen Then _
MsgBox "连接成功", vbOKOnly, "提示"
cn.Close
要安装MYsql odbc 驱动 ODBC CONNECTER/mysql
不要设置 直接用 如下面大括号里面的
driver={mysql odbc 5.1 driver}
然后 输入 账号uid 密码pwd 端口port 数据库名database
你应该能看懂的 如果不懂加我
我用VS中的vb平台做过,可以直接在软件中配置数据数据源的,不知道VB6跟那个一样不