Code: Select all
...
Set CNN = New ADODB.Connection
strCnString = "Provider=SQLOLEDB;" & _
"Data Source=DESKTOP-TQPVR2M\SQLEXPRESS;" & _
"Initial Catalog=CPO;Integrated Security=SSPI;"
CNN.Open strCnString
...