在一个窗体中调用另一个窗体的数据

            在做机房收费系统时我们经常会遇到一个数据或是某个功能，可能多个窗体中都要用到，应对这个问题我们最先想到的方法，就是先在模块中声明一个变量或是自己定义一个函数或是过程。这就好像在生活中有些东西是公用的有些东西是私用的，在模块中所声明的函数过程以及变量就都是公用的，在我们工程中的成员也就是窗体都可以拿过来用。比如相信大家在做机房时都在模块中声明了UserName这个变量因为它在登录和修改密码时都要用到。

再比如我们在敲机房收费系统时几乎每个窗体都用到这么几行代码

    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    
    txtSQL = "select * from 某张表 where 字段 = '" & 内容 & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)

就是说每个窗体都调用了ExecuteSQL( ),这个函数，如下代码

Publ