Private Sub Nuovo()
        Dim CodIva As String = CStr(Me.TextBox1.Text)
        Dim Aliva As Single = CSng(Me.TextBox2.Text)
        Dim AlEff As Single = CSng(Me.TextBox4.Text)
        Dim Detraib As Single = CSng(Me.TextBox3.Text)

        Dim queryString As String
        Dim strConnessione As String
        Dim strProvider As String = "Provider = Microsoft.Jet.OLEDB.4.0;"
        Dim strOrigine As String = "Data Source=" & Application.StartupPath & "\dbCodici.mdb"
        strConnessione = strProvider & strOrigine
        Using Conn As New OleDb.OleDbConnection(strConnessione)
            Conn.Open()
            queryString = "INSERT INTO iva (Cod_Iva, AlIva, AlIvaEff, Detraib) VALUES ('" & CodIva & "', '" & Aliva & "', '" & AlEff & "', '" & Detraib & "')"
            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.Text)
    End Sub