关于引用的问题

aslxt

1、在A.mdb的模块建立一个自定义函数，并保存、关闭：
Function Mymsgbox(ByVal str As String)
  MsgBox "你成功调用了A.mdb文件的自定义函数：" & Chr(10) & str
End Function
2、在A1.mdb中建立一个测试窗体【窗体1】，包含一个列表框（测试调用结果的文字列表），一个测试命令按钮
3、在A1.mdb的代码编辑器中：工具-引用-浏览-文件类型 -选定【...access 数据库（mdb）】-在目录中选定被调用的mdb文件-确定
4、在A1.mdb的代码编辑器中编写测试命令按钮的代码：
  Call Mymsgbox(Me.List0.Column(0))
5、保存、测试
附件：
注：可能需要在A1.mdb的代码编辑器中按照第3步的方法重新引用A.mdb