请教：将程序中一函数分为一个bas模块，模块中调用主程序的全局变量时出错，该怎么调用？

Question

确定调用使用它的函数前已经运行过Form_Load赋值的话，写出你的声明及赋值代码来

Answer 1

form1的代码如下：
Dim o_dbConnection,o_dbRecordset As Object
Private Sub Form_Load()
   '设置数据库连接
   Set o_dbConnection = CreateObject("ADODB.Connection")
   Set o_dbRecordset = CreateObject("ADODB.Recordset")
   o_dbConnection.Open "DSN=db;uid=user;pwd=password"
end Sub
Private Sub cmd_1_Click()
   Pro()
end submodel1的代码如下：
Public Sub Pro()
 o_dbRecordset.Open "Select * from tab",o_dbConnection
end Sub程序执行到model1的代码就出错，调试显示o_dbRecordset和o_dbConnection是空值。请大家帮忙！！！

Answer 2

Recordset和connection是全局变量吗？（定义在模块中而不是窗体中）

Answer 3

果然是
Dim o_dbConnection,o_dbRecordset As Object
在窗体中不能算是全局变量
而且你在模块中也没有强制定义语句
自然有问题在模块中
public o_dbConnection as object,o_dbRecordset As Object

Answer 4

感谢高人：holydiablo(鱼头)，已运行正常！
多谢各位朋友！