使用来自我的表单的函数调用从模块运行SQL查询

我有一个表单设置，我想在它的表单加载事件上运行函数

PopulateGrid

。我已按如下方式初始化了DB连接：

Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    LoadConfigFile()
    cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & config("DatabasePath") & ";")
    cn.Open()

End Sub

现在，我想在连接到数据库后直接运行

PopulateGrid

函数，如上所示。当数据库以我的主窗体初始化时，我不知道如何在模块中使用数据库查询。将变量

cn

设置为公共工作是否简单？还是我必须做更复杂的事情

---

谢谢。

您应该修改模块以接受OLEDB连接作为参数，然后将

cn

变量传递给查询方法。将

cn

设置为public将不是一个好的设计，因为它会在模块中引入对表单/ui的依赖，这是不必要的