vb+access的一个问题

下了个vb+access做的程序，能实现加上一段代码让它自动配置数据源吗？或者做一个程序自动配置access数据源
--------------------编程问答-------------------- 将数据库放在程序所在目录，在代码中用app.path表示程序所以目录 --------------------编程问答-------------------- 代码中用的什么，Data控件，Adodc控件，还是ADO对象

如果是Data控件，有个Connect属性，下拉框中选Access2000。

如果是Adodc控件或ADO对象，则

    Dim cn As ADODB.Connection

    Set cn = New ADODB.Connection



    Dim str As String

    str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False"

                                            'Data Source是你的数据库路径

    cn.open str

--------------------编程问答-------------------- Dim cn As New ADODB.Connection
Dim rs  As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名称.mdb;Persist Security Info=False"
rs.Open "select * from 表名称", cn, adOpenKeyset, adLockOptimistic --------------------编程问答-------------------- 把数据库文件放置到程序的当前目录下，注意的在程序中使用相对路径。。。

楼主是否是用ODBC数据源？

补充：VB ,  数据库(包含打印，安装，报表)