急，路径的问题！

Question

如何再vb里面使用虚拟路径？
比如说有以下数据库连接语句，想把他用虚拟路径表示，数据库文件和代码文件放在同一目录下。
Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\MyProjects\vb\No Delete\AddressList.mdb;Persist Security Info=False"
    cn.Open

Answer 1

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