13518219792
首先得建立odbc数据源！步骤如下：
多端合一成都响应式网站建设公司:PC+平板+手机,同一后台修改数据多端同步更新提交您的需求,获取网站建设与营销策划方案报价,我们会在1小时内与您联系!
1.
在资源管理器或者
我的电脑中，进入到控制面板-管理工具，可以看到“数据库odbc项”。
2.
双击“数据源（odbc）”项，进入到数据源的配置。
3.
要想创建一个指定的数据库，点“添加按钮”，将出现数据源类型选择对话框，
在这一部中，你一定要写明连接的是sql
server
还是aceess。
4.点完成，进入到建立不同数据源的配置项或配置向导，注意，不同的数据库，配置界面有所不同。我介绍的是sql
，首先要输入数据源的名称，描述信息和指定服务器
5.
下一部，进入到sql连接的安全验证，可以选择以windows
nt验证方式或者sql登陆的方式。
6.再点击下一部，安全通过后，进行sql数据库的连接。
7.
继续进行下一部操作，进行一些系统消息语言，日志等配置，一般保持为默认方式。
8.点完成按钮，将提示一些总结信息，并可以执行数据与数据库的连接测试。
这是建立odbc数据源的步骤，下面还得在模块里面把ado连接的代码写好，才能真正连上，代码如下：
private
sub
command_click()
dim
a
as
connection
set
a
=
new
connection
a.connectstring="dsn=pubs;uid=sa;psw"
a.open
end
sub
这有的地方你得自己改改，因为我和你机子不一样！
自己调试吧，好的程序都是调试出来的！
楼上讲的是VB2005的连接方法，不知道你用的是什么版本的VB,我给你一个VB6.0的连接方法吧
先在本机上安装最新的ODBC CONNECTER/mysql
无需设置ODBC,就可以使用.
注意MYSQL的帐户登录是根据主机的,设置好MYSQL的帐户后再做测试.
测试代码:
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim sql As String
'connect to MySQL server using MySQL ODBC 3.51 Driver
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
"SERVER=192.168.0.1;" _
" DATABASE=db_name;" _
"UID=username;PWD=password; OPTION=3"
conn.Open
'create table
conn.Execute "DROP TABLE IF EXISTS my_ado"
conn.Execute "CREATE TABLE my_ado(id int not null primary key, name varchar(20)," _
"txt text, dt date, tm time, ts timestamp)"
'direct insert
conn.Execute "INSERT INTO my_ado(id,name,txt) values(1,100,'venu')"
conn.Execute "INSERT INTO my_ado(id,name,txt) values(2,200,'MySQL')"
conn.Execute "INSERT INTO my_ado(id,name,txt) values(3,300,'Delete')"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
'fetch the initial table ..
rs.Open "SELECT * FROM my_ado", conn
Debug.Print rs.RecordCount
rs.MoveFirst
Debug.Print String(50, "-") "Initial my_ado Result Set " String(50, "-")
For Each fld In rs.Fields
Debug.Print fld.name,
Next
Debug.Print
Do Until rs.EOF
For Each fld In rs.Fields
Debug.Print fld.value,
Next
rs.MoveNext
Debug.Print
Loop
rs.Close
conn.Close
在VB中存储数据到MySQL数据库的过程非常简单，只需要建立一个数据库连接，然后使用SQL语句将数据写入数据库即可。
最简单的办法是：在VB里添加一个ADO部件，将其放到窗体中，然后右键选择属性，在其属性页的下面有个生成连接字符串的项，点击其后的按钮，然后一步步的来做（很简单的），然后连接字符串就会在那里生成，只要拷贝这个字符串，就可以用ADODB来连接了。。。
