Dim ConnessioneDB As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Cypher\Documents\StudioVignola.accdb;Persist Security Info=False")

        Try
            ConnessioneDB.Open()
            MsgBox("Connessione Riuscita", MsgBoxStyle.OkOnly)
            ConnessioneDB.Close()
        Catch ex As OleDbException
            MsgBox(ex.ToString())
        End Try