如何在IF语句中声明值并重新使用它

Question

我想在连接语句中传递声明的值。但是将错误抛出为“未找到数据源名称”。 但是在使用连接语句中的值时成功连接。

If ActiveSheet.OptionButtons("Option Button 6").Value = True Then
    DataSource1 = "TERA1" And Database1 = "TERA1.com"
    GoTo Connect_to_database
End If

If ActiveSheet.OptionButtons("Option Button 7").Value = True Then
    DataSource1 = "TERA2" And Database1 = "TERA2.com"
    GoTo Connect_to_database
End If

Connect_to_database:
cn.Open "Data Source= " & Datasource1 & "; Database=" & Database1 & "; Persist Security Info=True; User ID=" & userid & "; Password=" & pass & "; Session Mode=ANSI;"

无法在Connection中使用声明的值。任何人都可以帮助我！