vb 6.0中的数据库连接设置问题

Question

我使用的是vb 6.0中的Adodc控件连接的Access数据库
可是我不知道怎样将Adodc控件中的connectionString属性下面的数据连接属性中的数据库的名称路径从绝对路径修改到相对路径以便我方便在不同的电脑上修改编辑
比如
E:\项目\Soure code\db1.mdb这个路径
我的程序源文件与数据库文件都是放在E:\项目这个目录下面的
不知道该怎样修改
谢谢！

Answer 1

将ACCESS数据库放在程序所在目录下，代码中用ADO对象连接
dim conn as new adodb.connection
With conn
    if .state<>adstateclosed then .close
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\test.mdb"
    .Open
    .CommandTimeout = 300
End With