在窗体上添加一个ADODC控件,
然后设置属性
ADODC1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
(注意把Data Source后面的Access数据库名称换成自己的)
就可以连接Access了
Public conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\*.mdb;Persist Security Info=True;Jet OLEDB:Database Password=*******"
conn.CommandTimeout = 30
conn.Open
如果数据库没有密码,database password=******那段就可以不要。
http://zhidao.baidu.com/question/97407679.html