VB 使用ADO控件链接数据库，链接时怎么指定数据库的相对路径

通常我是这么做的:
1. 第1步：在VB编辑状态，选中ADO控件，在属性窗口设置它的ConnectionString属性。并可以进行测试连接，确定连接成功，就在属性窗口里获得了正确的连接字符串。
例如：我的一个连接本地数据库的例子如下：
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\数据库系统\数据库.mdb;Persist Security Info=False
显然，这个是绝对路径，为了使得你的程序灵活使用，需要把其中路径修改为如下相对路径，并用语句进行连接，其实很好理解：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path & "\数据库系统\数据库.mdb;Persist Security Info=False"
我在做工程时，建立了文件夹“数据库系统”，然后将所有文件以及数据库文件都保存在该文件夹里，我的数据库文件为“数据库.mdb”。

1、app.path
=================
2、"dat\m1.mdb"
=================

APP.PATH +"xxx.mdb"