有多个是你可以这样做：

选项一：使用全局变量

如果在模块的顶部声明一个变量为Global，即在任何subs/函数之前，你可以从任何其他模块访问它们：
示例-模块1：

Option Explicit

Global gStrConnection As String 'g for Global scope

Sub Connect()
    gStrConnection = "User ID=" & strUserName & "; Password=" & strPassword & "; Data Source=" & strDatabase & "; Provider=msdaora")    
   dbConnect.Open gStrConnection
   ...
End Sub

形式：

Private Sub CreateReport()
    dbConnect.Open gStrConnection
    ...
End Sub

选项二：将变量传递给本地表单变量

在Form的模块中声明一个模块范围的变量（即在哪里放置表单的其他代码）。然后提供一个小的setter子程序来赋值。
示例-模块1：

Option Explicit

Sub Connect()
    Dim strConnection as String
    strConnection = "User ID=" & strUserName & "; Password=" & strPassword & "; Data Source=" & strDatabase & "; Provider=msdaora")    
   dbConnect.Open strConnection
   ...
    ReportGenerator.StoreConnectionString strConnection
    ReportGenerator.Show
    ...
End Sub

形式：

Private mStrConnection as String 'm for module-wide scope

Public Sub StoreConnectionString(strConnection as String)
    mStrConnection = strconnection
End Sub

Private Sub CreateReport()
    dbConnect.Open mStrConnection
    ...
    ...
End Sub

在标准模块的顶部声明连接和记录集，在任何过程之外，并将它们的访问器设置为public。
记得在完成后清理资源。

当我在研究Peter Albert的选项1时，我想到了另一种方法。我需要有一个地方来存储连接字符串，可以在开发，测试和生产环境之间进行修改，以连接到Azure SQL数据库。我采用的方法将字符串声明为Global（gconn），并在该模块（connectDB，在示例中不可见）中定义字符串，然后调用该模块的Connect Sub过程来获取全局字符串变量。这使我可以在一个单独的模块中简单地定义连接字符串，并在执行sql的子过程中执行所有连接的打开和关闭。我不想在当前模块之外执行任何打开和关闭子过程。

Option Explicit

Sub testconnection()
Dim cn As New ADODB.Connection
Call Connect
cn.Open gconn
cn.Close

注意，我在connectDB模块中所做的只是声明Global字符串。

Option Explicit

Global gconn As String

Sub Connect()
gconn = "Provider=MSOLEDBSQL19;" & _
     "Data Source=AzureSQLDatabaseAddress;" & _
     "Initial Catalog=DatabaseName;" & _
     "User ID=SomeUser;" & _
     "Password=SomePassword;" & _
     "Use Encryption for Data=False;" & _
     "DataTypeCompatibility=80"

End Sub

这是我在Stack Overflow中的第一个答案，请对我宽容一些：）。我想在写了将近20年的SQL和VBA之后，我应该在这里贡献一点。