' Open a connection
Set Cnxn = New ADODB.Connection
strCnxn = "Provider='sqloledb';Data Source='.\SQLEXPRESS';Initial Catalog='Northwind';Integrated Security='SSPI';"
Cnxn.Open strCnxn