data sourse, initial catalog como variable

[lokoman]

Hola!!
Intenta lo siguiente:
dim VARIABLE_CON_NOMBRE_DE_BASE_DE_DATOS as string
dim DATA_SOURCE_PC as string

VARIABLE_CON_NOMBRE_DE_BASE_DE_DATOS=basedatos
DATA_SOURCE_PC=PC1

Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=SQLOLEDB; " & _
"Initial Catalog=" & VARIABLE_CON_NOMBRE_DE_BASE_DE_DATOS & "; " & _
"Data Source=" & DATA_SOURCE_PC & "; " & _
"integrated security=SSPI; persist security info=True;"

PD:debes pasar los valores desde la aplicación, pon dos textbox, uno para el nombre de la base de datos y el otro para el data source.