数据库移动之后无法使用

在VB6.0中，用Visdata建立了一个数据库，之后在数据窗体向导那里用grdDataGrid绑定到一个之前建立的一个本地数据库。
于是我讲生成的exe文件和数据库文件一起剪切到另外一个目录，接着我在代码中使用了
Set db = OpenDatabase(App.Path + "student.mdb")
这样确实是可以打开该数据库，但是那个数据窗体grdDataGrid却提示源目录的路径，并表示没有数据库了
我想问，此处如何使得我移动了之后还是可以使用那个数据窗体
谢谢各位高手！