Code:
Dim rs As New ADODB.Recordset
Dim oCnn As ADODB.Connection
Set oCnn = New ADODB.Connection
'Windows Integrated Security Login
'oCnn.ConnectionString = "provider=sqloledb;data source=intel;initial catalog=Northwind;integrated security=sspi;"
'oCnn.Open

oCnn.Open "Driver={SQL Server};" & _
"Server=(local);" & _
"Database=Northwind;"
...