vb连接access用相对路径的问题？请您看看。
请教啊！以下程序在vb封装时，运行正常。但是用的是绝对路径，我应该怎么改成相对路径？
程序如下：

Dim Coon As Connection
Dim Rs As Recordset
Set Conn = New Connection
With Conn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\aaa\bbb.mdb "
.Open
End With

Set Rs = New Recordset
sql = "Select top 4 * From NewsData where D_CataID= 'A00030004 ' and D_Picture <> ' ' ORDER BY D_id desc "
Rs.Open sql, Conn, 1, 1
接下来是正确的asp语句了

[解决办法]

Public gDBConn As ADODB.Connection

Public Sub SetAdo( inConnection As ADODB.Connection)
Set gDBConn = inConnection
end sub
这样不就可以了吗?然后调用dll的时候可以把连接传进去
[解决办法]
呵呵， 我来拿分了。
VBAdvisor，以及上面的同志
Dll里面好像不存在App这个对象的。

应该是要加上一个Server的对象，才可以。
具体代码大家如果需要，可以向 ab9(落寞的微笑) 索求。