VB6.0连接ACCESS数据库

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

Dim cn As New ADODB.Connection, rs1 As New ADODB.Recordset, sql As String '在通用声明里定义，其中cn是连接对象，rs1是记录集，sql是查询语句
Private Sub Form_Load()
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" + App.Path + "\数据库名.mdb" + ""
sql = "select * from 表名"
rs1.Open sql, cn
rs1.MoveFirst
Do While Not rs1.EOF
Combo1.AddItem rs1("字段名")
rs1.MoveNext
Loop
rs1.Close
End Sub

上面的是打开数据库进行查询，并将查询结果写入列表框
不清楚的留言给我，发一个可以运行的程序给你参考

Private
Sub
Combo1_Click()
Dim
Reco
As
New
ADODB.Recordset
Dim
sql
As
String
sql
=
"select
*
from
data.p_m
（数据库.表名）Where
i_name
（字段）='"
&
Combo1.Text
&
"'"
Reco.Open
sql,
conn,
1,
3
If
Not
Reco.EOF
Then
Text1.Text
=
Reco("i_path").Value
Image1.Picture
=
LoadPicture(Text1.Text)
End
If
Reco.Close
End
Sub

在创建窗体时 不 要选择 标准 窗体 选 VB数据库创建导向 然后 一步步 往下做 ,..呵呵