'DICHIARAZIONE DELLE VARIABILI ED ASSEGNAZIONE DEI VALORI
        Dim Nome_cli As String = CStr(Me.TextBox1.Text)
        Dim ind_cli As String = CStr(Me.TextBox2.Text)
        Dim cap_cli As String = CStr(Me.TextBox3.Text)
        Dim comune As String = CStr(Me.TextBox4.Text)
        Dim prov As String = CStr(Me.TextBox5.Text)
        Dim CF As String = UCase(CStr(Me.TextBox6.Text))
        Dim PI As String = CStr(Me.TextBox7.Text)
        Dim Tel As String = CStr(Me.TextBox8.Text)
        Dim Fax As String = CStr(Me.TextBox9.Text)
        Dim Cell As String = CStr(Me.TextBox10.Text)
        Dim Mail As String = CStr(Me.TextBox11.Text)
        Dim Web As String = CStr(Me.TextBox12.Text)
        Dim Note As String = CStr(Me.TextBox13.Text)

        Dim queryString As String
        Dim NomePercorso As String = CStr(Me.txtNomePerc.Text)
        Dim strConnessione As String
        Dim strProvider As String = "Provider = Microsoft.Jet.OLEDB.4.0;"
        Dim strOrigine As String = "Data Source=" & Application.StartupPath & "\dbRCF.mdb"
        strConnessione = strProvider & strOrigine
        Using Conn As New OleDb.OleDbConnection(strConnessione)
            Conn.Open()
            queryString = "INSERT INTO Clienti (Denominazione, Indirizzo, Cap, Comune, Provincia, Cod_Fisc, Part_Iva, Telefono, Fax, Cellulare) VALUES °_ ('" & Nome_cli & "', '" & ind_cli & "', '" & cap_cli & "', '" & comune & "', '" & prov & "', '" & CF & "', '" & PI & "', '" & Tel & "', '" & Fax & "', '" & Cell & "')"
            Me.TextBox14.Text = queryString
            Dim InsCli As New OleDb.OleDbCommand(queryString, Conn)
            Dim Result As Integer
            Result = InsCli.ExecuteNonQuery
        End Using
        MsgBox("Inserimento Dati Completato.", MsgBoxStyle.Information, "EasY Net")
        Me.Close()