连接数据库时怎样使用相对路径?

Question

我在用ADO对象连接access数据库,请问在连接字符串中怎样使用相对路径?
连接字符串如下:
Dim con As ADODB.Connection
Set con = New Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=..\db\afu.mdb"

Answer 1

'将数据库放在程序所在目录下
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & "\afu.mdb"

Answer 2

ADO代码用app.path,也可以用当前目录"." ( "."为当前目录，".."为上级目录）  
如是ADODC，想直接设置，用"."
ADODC1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\afu.mdb"