[求助]想用相对路径动态的数据库地址及动态加载数据库

我初学数据库，想做两件事：
1能够用类似打开数据文件中APP的方式来打开相应的数据库文件，也就是数据库能跟着程序跑。
2使用的数据控件（我这里是DBGRID）能够在程序的执行过程中加载数据库列表。
Dim DB_Name As String, RecordTable As String
DB_Name = "Student_Data": RecordTable = "Student"
With FormMain
    .Data1.DatabaseName = App.Path + "\" + DB_Name
    .Data1.RecordSource = RecordTable
    '.DBGrid1.DataSource = Data1
End With
结果出现了错误：
430
类不支持自动化或不支持期望的接口。   而我查到的一本书上说，用SET OBJECT.Source=SomeString的方法也是不对的，它们之间的关联只能在设计时设定，无法在设计中改变，请问，我改如何解决这个问题？我发现这两个问题是递进的，解决了第一个才有可能解决第二个。如果这种层次的设计只能用静态的设计中指定数据库的方式来做，能否请高手告诉我想要实现我的想法该使用什么方法最为快（就是比较好学点的，是DAO吗？）？谢谢。