codice:
Dim cnn1 As New System.Data.OleDb.OleDbConnection()

'accesso Windows ad una istanza SQL

cnn1.ConnectionString = "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=nomedatabase;Integrated Security=SSPI"

'accesso SQL Server
cnn1.ConnectionString = "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=nomedatabase;User ID=iduser;Password=password"

cnn1.open()
NB=non uso Sql; l'esempio è riportato da un testo x cui non mi fare altre domande.

Spero di averti aiutato, ciao.