Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Creating a SQL Server Connection Object with SQL Server Security

Sub CreateConnection()     'Declare and instantiate the connection     Dim cnn As ADODB.Connection     Set cnn = New ADODB.Connection     'Open the connection     cnn.Open "Provider=SQLOLEDB.1;" & _             "Data Source=(local); Initial Catalog=NorthWind;" & _             "User ID=sa;PWD="     'Close the connection     cnn.Close     'Destroy the connection object     Set cnn = Nothing End Sub