VB 数据库连接 ACCESS 这个问题很简单，我只要代码，高分悬赏！！！

Question

我知道设置ADODC的connectstring，但是如果程序到另一个文件夹就报错了
现在想让大侠们把代码发上来
窗体上有ADODC控件，name为ADODC1
datagrid控件 name为DG
需要在窗体载入事件中添加连接代码，要求很简单，就是解决上面说的问题（即使工程EXE换了路径，也能顺利运行）
应该有APP.PATH返会吧
我知道用数据库对象，但是不知道代码怎么写
手里没资料，所以请教网上的高手们
发代码就可以，不需要你浪费口舌，代码我自己研究
上面说错了，像一楼说的，我的意思是EXE与数据库文件在一起，所有文件一起移动，比如一开始Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\通讯录\通讯录.mdb;Persist Security Info=False

这是设计时候写的

我将那个文件夹改名，然后运行，就会出现C:\Documents and Settings\Administrator\桌面\通讯录\通讯录.mdb不是一个有效路径，就是想解决这个问题，工程的所有文件和数据库都在一起，一起移动以后运行仍然可以连接

Answer 1

没有代码就给你费点口舌吧！
1.你建一个配置文件，吧数据库的路径，或者一些配置信息放到配置文件里面，
你程序就去读配置文件的信息来连接数据库，
数据库变更，更换什么的，你就直接改下配置文件好了，这样你软件发布后，就不需要重新修改代码，重新发布了，只需要改一下配置文件就可以。
2.要么你就把数据库跟工程文件放在同一目录，工程移动，数据库跟着走，你程序里面直接从工程的工作目录里面读数据库相关信息，这个是相对路径；你不要去使用绝对路径。

“即使工程EXE换了路径，也能顺利运行”
这个我就不懂了，exe文件你去移动它干嘛啊，你要移，你不会建个快捷方式去移么？
比如：
你装好qq后你会把qq.exe单独移走，而不是把qq整个文件移走么？

Answer 2

对不起，我插个嘴，ADODC连接的是ODBC数据源，应该不会和工程的路径有关系吧，链接代码可以用ADODC生成，数据库文件的位置今后也可以改变。也可以用Data控件连接Access文件，可以用App.Path & "\" & Access.mdb ，数据库必须和程序在一个目录下。你的题目要求很高。

Answer 3

这里怎么都发不出来给你，我在留言中发给你代码了。查收吧。 给你的代码保证解决你这个问题。
Private Sub Form_Load()
With Adodc1
.ConnectionString =

Answer 4

xlFile =app.path & “\jtlywqb.mdb ”
sConnectionString = ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=“ & xlFile
Dim cn As adodb.Connection
Set cn = New adodb.Connection
With cn
.ConnectionString = sConnectionString
.Open
End With
Dim rs As adodb.Recordset