Dim connstring2 As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Documents and Settings\User\Documenti\Visual Studio 2008\Projects\Tech\Db\Db_Interventi.mdb"         'Dichiaro la stringa di connessione
        Dim cn2 As New OleDbConnection(connstring2)
        cn2.Open()

        Dim Sql2 As String
        Sql2 = "INSERT INTO tb_utenti (nome, cognome, login, password, permessi) VALUES ('" & nome & "','" & cognome & "','" & log_admin & "','" & pwd_admin & "','" & permessi & "')"
        Dim cmd2 As New OleDbCommand(Sql2, cn2)
        Dim dr2 As OleDbDataReader = cmd2.ExecuteReader

        cn2.Close()