Define una variable Global, de nombre
DBSelect y de tipo String.
En el punto en que tomes la decisión de qué DB quieres abrir, asignas el valor de esa variable. Por ejemplo
Código:
If Option1 Then DBSelect = "UNA"
ElseIf Option2 Then DBSelect = "OTRA"
ElseIf Option3 Then DBSelect = "MAJO"
End If
Y luego sustituyes el texto de
DSN por éste:
Código:
Private Const DSN As String = "Persist Security Info=False;User ID=sa;Initial Catalog=aerolinea;Data Source=" & DBSelect
Ten en cuenta que te estoy hablando desde los bancos de VB 6.0; pero en líneas generales, la filosofía sigue las mismas líneas para .NET (o eso creo yo...)