Connessione SQL oppure OLEDB

Imports System.Data
Imports System.Data.SqlClient


Public DbaziendaSql As New SqlClient.SqlConnection 'Crea una connessione, come in VB6

Public Function ApriDatabaseSqlNew() As Boolean

DbaziendaSql = New SqlClient.SqlConnection '("server=(local);Database=pubs;Integrated Security=True")
DbaziendaSql.ConnectionString = "Data Source=60016P05260;Initial Catalog=pubs;Integrated Security=True"

Try
DbaziendaSql.Open()
ApriDatabaseSqlNew = True
Catch
MsgBox("Connessione non effettuata" & vbCrLf & Err.Description, MsgBoxStyle.Critical, "Connessione Fallita")
ApriDatabaseSqlNew = False
End Try

End Function


'******************************************************************************************************************************



Imports System.Data
Imports System.Data.OleDb


Public Dbazienda As New OleDb.OleDbConnection 'Crea una connessione, come in VB6


Public Function ApriDatabase() As Boolean

Dbazienda.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & PathDataBase
Try
Dbazienda.Open()
ApriDatabase = True
Catch
MsgBox("Connessione non effettuata" & vbCrLf & Err.Description, MsgBoxStyle.Critical, "Connessione Fallita")
ApriDatabase = False
End Try

End Function