aquí código del connection string de una BD sql ejemplo
en un módulo :
Código:
SALUDOS DESDE CHILE Public Sub conexionbd() Set cn = New Connection Set rs = New Recordset With cn .ConnectionString = "Provider=MSDASQL.1;Password=123;Persist Security Info=True;User ID=Admin;Data Source=Sistema cliente" .Open End With Exit Sub End Sub

