Connessione

'-------------------------------------------------------

Imports System.Data.OleDb
'-------------------------------------------------------


Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Prova\1\ado\EsempioAdo\bin\archivi.mdb"
'Dichiaro la stringa di connessione

Dim cn As New OleDbConnection(ConnString) 'Dichiaro la nuova connessione

cn.Open()



Public Shared CnnDB As OleDbConnection
Dim connectionString As String = (("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbname & ";") & "Jet OLEDB:Engine Type=5;")
DbAzienda.CnnDB = New OleDbConnection(connectionString)
DbAzienda.CnnDB.Open()


Dim da As New OdbcDataAdapter("SELECT CustomerID, ContactName, ContactTitle FROM Customers", DbAzienda)
Dim ds As New DataSet("Cust")
da.Fill(ds, "Customers")
dataGrid1.DataSource = ds.DefaultViewManager
conn.Close()

cn = New SqlConnection(ConfigurationSettings.AppSettings("ConnectString"))