vb用adodb链接mysql找不到_vb6用ado 连接数据库后，如何获得数据

'在工程里引用 microsoft activex data objects 2.7 library

'然后随便画个命令控件，在命令控件的单击事件里(click)输入以下代码，并改成你的数据库名和数据库里的字段名。

Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset

dim i As Long

Set cn = New ADODB.Connection

Set rs = New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password = 111;Data Source=" & App.Path & "\1.mdb" '1.mdb 替换成你的数据库

cn.Open

rs.Open "select * from 表1 ", cn, adOpenStatic, adLockOptimistic '表1这里改成你的表名

i=1

do while not rs.eof

'这里编程输出查询结果

if i=5 then msgbox rs.Fields (0) & " 这就是第5条记录"

i=i+1

rs.MoveNext

loop

rs.Close