如何设置对VB数据库连接的动态路径

　　作者：张振兴
笔者的解决方法是利用app.path 来解决这个问题。
一、用data控件进行数据库链接，可以这样：
在form_load()过程中放入：
** form_load()
Dim str As String '定义
str = App.Path
If Right(str, 1) <> "\" Then
str = str   "\"
End If
data1.databasename=str