Как объявить значение в выражении 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. Может кто-нибудь помочь мне, пожалуйста!