请问数据库连接怎样变为相对路径 帮忙修改原码
Dim str As String
Dim conn As New ADODB.Connection
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Application\db1.mdb;Persist Security Info=False"
conn.Open str
Dim rs As New ADODB.Recordset
rs.Open "select * from main", conn, adOpenDynamic, adLockOptimistic
请问数据库连接怎样变为相对路径 帮忙修改原码