请问各位高手:这段代码应放在什么地方?

ouxingwang

看了朱亦文先生的文章,很受启发,但却不知这段代码放在哪儿?并诚请各位高手帮我改一下代码,让代码满足我的要求,我的想法如下:,我想双击数据库文件db1,自动打开数据库db2的窗体form1,并且关闭数据库db1.
以下是朱亦文先生提供的文章:
在ACCESS2000中如何用VBA代码打开一个带有密码的数据库
　　在ACCESS 2002和ACCESS 2003可以使用OpenCurrentDatabase方法打开一个带有密码的ACCESS MDB数据库, 在可是在ACCESS 2000中该方法不支持密码参数,那么如何实现呢? 　　下面这个过程打开一个当前数据库同一目录中带有密码的数据库 db2.mdb (密码：123)，并打开一个窗体。
Dim appAccess As Access.Application
Dim db As Database
Private Sub OpenDB()  
Dim strDB As String  
' 将字符串初始化为数据库的路径。
strDB = CurrentProject.Path & "\db2.mdb"   
' 创建 Microsoft Access 的实例。   
Set appAccess = CreateObject("Access.Application")  
' 在 Microsoft Access 窗口中打开数据库。
Set db = appAccess.DBEngine.OpenDatabase(strDB, False, False, "WD=123")    appAccess.OpenCurrentDatabase strDB   
appAccess.DoCmd.OpenForm "form1"     
appAccess.Visible = True
End Sub

paul16

为什么不直接打开DB2呢？
可以放在自启动宏中！或用启动窗体中的加载事件！