如果想让用户自己设置数据库的路径，该怎么做？

Question

我在模块中定义了一个变量存放路径的变量，可是该变量就是不变，明明已经该过了可是关闭窗口 再打开后，显示的还是以前的地址。

Answer 1

我是再全局变量里设置的变量 如下：我在模块里定义的 又什么问题吗？
Function dbadd(address) As String
If address = "c:\123.mdb" Then
dbadd = "c:\123.mdb"
Else
dbadd = address
End If
End Function
如果窗体不关闭，变量有用，窗体关闭后就没用了（整个程序没有关闭）

Answer 2

在菜单中点“工程”->"添加模块"->确定,在新出现的窗口中定义全局或公用变量.如
public strDir as string

Answer 3

我在模块里就这个段代
public address as storing
Function dbadd(address) As String
If address = "c:\123.mdb" Then
dbadd = "c:\123.mdb"
Else
dbadd = address
End If
End Function
没有其他的了。还有什么变量需要初始化？