Dim connstr As String
connstr = "dbq=" + App.Path + "\address.mdb" + ";driver={microsoft access driver(*.mdb)};"
conn.Open connstr
Set rst = New ADODB.Recordset
rst.Open "select*from address", conn, 1, 3
rst.MoveFirst
Text1.Text = rst.Fields(0)
Text2.Text = rst.Fields(1)
Text3.Text = rst.Fields(2)
Text4.Text = rst.Fields(3)
Text1.Text = False
Text2.Text = False
Text3.Text = False
Text4.Text = False

这是怎么回事，希望给予帮助哦！！！
具体怎么做……

Dname=App.Path + "\address.mdb"
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Dname & " ;Jet OLEDB:Database Password="   '定义数据库连接
还有问题请联系QQ308749442