Connessione a Sql Server

Public Function ApriDatabaseSql() As Boolean

Dbazienda = New OleDb.OleDbConnection '("server=(local);Database=pubs;Integrated Security=True")
Dbazienda.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs;Data Source=60016P05260"

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

End Function