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

