Question

怎样修改VB工程链接数据库的绝对路径为相对路径啊？

请各位高手帮帮忙，帮我把下面的路径修改为相对路径，就是生成工程后无论把工程放在哪儿都不会出现数据库读取错误的问题
Private Sub Form_Load()
On Error GoTo loaderror '为了避免发生错误而死机
Set db = OpenDatabase("C:\Documents and Settings\bai\桌面\学生管理系统\School.MDB", _
False, False)
Exit Sub
loaderror:
MsgBox Err.Description
End Sub

Private Sub Student1_Click() '学籍管理窗口显示
Form1.Show
Form2.Hide
End Sub

Answer 1

要把school.mdb放到学生管理系统目录下
然后Set db = OpenDatabase（app.path+"\School.MDB", _
False, False)

app.path是当前程序根目录。

Answer 2

Set db = OpenDatabase("C:\Documents and Settings\bai\桌面\学生管理系统\School.MDB", 改成路径+ App.Path + "\School.MDB"......