'Inserimento Dati'
        Dim strProvider As String = "Provider = Microsoft.Jet.OLEDB.4.0;"
        Dim strOrigine As String = "Data Source=" & Application.StartupPath & "\dbTemp\dbDP.mdb"
        Dim strConnessioneB As String
        strConnessioneB = strProvider & strOrigine
        Dim queryString2 As String
        'eliminazione vecchi dati
        Try
            Using Conn2 As New OleDb.OleDbConnection(strConnessioneB)
                Conn2.Open()
                queryString2 = "INSERT INTO DatiP (Denominazione, Indirizzo, Local, CodFisc, PartIva, Telefono, Fax, Mail) VALUES" & _
                "(@Denominazione, @Indirizzo, @Local, @CodFisc, @PartIva, @Telefono, @Fax, @Mail)"

                Dim cmdInsDati As New OleDb.OleDbCommand(queryString2, Conn2)

                cmdInsDati.Parameters.Add("@Denominazione", OleDb.OleDbType.Char, 10, "Denominazione").Value = Me.TextBox1.Text
                cmdInsDati.Parameters.Add("@Indirizzo", OleDb.OleDbType.Char, 50, "Indirizzo").Value = Me.TextBox2.Text
                cmdInsDati.Parameters.Add("@Local", OleDb.OleDbType.Char, 255, "Local").Value = Me.TextBox3.Text
                cmdInsDati.Parameters.Add("@CodFisc", OleDb.OleDbType.Char, 50, "CodFisc").Value = Me.TextBox4.Text
                cmdInsDati.Parameters.Add("@PartIva", OleDb.OleDbType.Char, 50, "PartIva").Value = Me.TextBox5.Text
                cmdInsDati.Parameters.Add("@Telefono", OleDb.OleDbType.Char, 50, "Telefono").Value = Me.TextBox10.Text
                cmdInsDati.Parameters.Add("@Fax", OleDb.OleDbType.Char, 50, "Fax").Value = Me.TextBox9.Text
                cmdInsDati.Parameters.Add("@Mail", OleDb.OleDbType.Char, 50, "Mail").Value = Me.TextBox8.Text
                Dim Result As Integer
                Result = cmdInsDati.ExecuteNonQuery
                Conn2.Close()
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try