表单上的选项button用于数据库连接

我有两种forms，第一种forms，我有一个标签打开第二种forms。 第二种forms是关于数据库连接选项。 我有2个框架控件。 第一帧被命名为frOpts，并有3个选项button：Prod，Cert和Dev。 第二个框架是frType与SQL连接选项使用广告login或使用SQLlogin。 当selectSQLlogin时，启用了用户名和密码的两个文本框，并从灰色变为白色。 我也有一个模块，正在做所有的工作。 如何将这些parameter passing给构buildSQL连接string的模块？ 我在模块中使用全局variables吗？ 另外，我将如何从选项button发送正确的参数到我的主要模块？ 在提问之前，我已经尽可能地用googlesearch了。 我正在用这个代码的这个表单上的命令button使用一个简单的testing：

Private Sub cmdOK_Click() Select Case frOpts Case 1: MsgBox "Prod" Case 2: MsgBox "Cert" Case 3: MsgBox "Dev" End Select 'Me.Hide End Sub 

但是这是给我一个types不匹配。 不知道我在做什么错。 所以我的问题是：什么是最好的方法来做我想要实现的。

更新

这是我最后的结果：

UserForm1

 Private Sub CommandButton1_Click() UserForm2.Show (False) End Sub Private Sub UserForm_Activate() Me.Show (False) End Sub 

UserForm2

 Public xOpt As Integer Public xTxt As String Public xType As Integer Public xTxt2 As String Private Sub CommandButton1_Click() Select Case xOpt Case 1: xTxt = "Prod" Case 2: xTxt = "Cert" Case 3: xTxt = "Dev" End Select Select Case xType Case 1: xTxt2 = "AD login" Case 2: xTxt2 = "SQLLogin" End Select Module1.BuildString xTxt, xTxt2 Unload UserForm2 End Sub Private Sub OptionButton1_Click() xOpt = 1 End Sub Private Sub OptionButton2_Click() xOpt = 2 End Sub Private Sub OptionButton3_Click() xOpt = 3 End Sub Private Sub OptionButton4_Click() xType = 1 End Sub Private Sub OptionButton5_Click() xType = 2 End Sub 

模块1

 Public Sub BuildString(sOpts As String, sType As String) sConn = sOpts & " " & sType Debug.Print sConn End Sub 

感谢您的帮助贾斯汀。 没有你，我不可能做到这一点。

Answer 1

将这两个窗体设置为ShowModal = False

第一种forms：

 Private Sub CommandButton1_Click() UserForm2.Show UserForm2.xOpts = frOpts End Sub 

在第二种forms中：

 Public xOpts As Integer Private Sub CommandButton1_Click() MsgBox xOpts End Sub 

按照评论编辑：

试试这个作为一个完整的模拟在一个新的表：

两者都用ShowModal=False和1个命令button。

UserForm1：

 Private Sub CommandButton1_Click() UserForm2.Show (False) UserForm2.xOpt = "3" End Sub 

UserForm2：

 Public xOpt As Integer Private Sub CommandButton1_Click() Debug.Print xOpt End Sub