关于ADODC 控件的问题？

Question

我用adodc 和DataGrid 控件做数据库查询。我用的是ACCESS数据库，所以如果在ADODC里设置连接字符串的话，不能用相对路径。不知道怎样才能设置成相对路径。使程序随便在哪里都能在当前目录下找到数据库。请教各位大侠！

Answer 1

Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection, rs As New ADODB.RecordSet
    '有密码的连接方式
    'cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Jet OLEDB:DataBase password=12345;"
    '无密码的连接方式
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Persist Security Info=False"
    cn.Open
    rs.CursorLocation=adUseClient'设置客户端游标
    rs.Open "select * from 表1", cn, 3, 2
    Set DataGrid1.DataSource = rs    
    Exit Sub
err:
    MsgBox err.Description
End Sub

Answer 2

就是用App.Path 获得当前目录的路径