Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Creating a Connection Object

Sub CreateConnection()     'Declare and instantiate the connection     Dim cnn As ADODB.Connection     Set cnn = New ADODB.Connection     'Open the connection     cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _     "Persist Security Info=False;" & _     "User ID=Admin;" & _     "Data Source=" & CurrentProject.Path & _         "\YourDb.accdb;"     cnn.Close     Set cnn = Nothing End Sub