Private Sub SalvaDati()
        Dim Nome As String = CStr(Me.TextBox1.Text)
        Dim Ind As String = CStr(Me.TextBox2.Text)
        Dim Loc As String = CStr(Me.TextBox3.Text)
        Dim CF As String = CStr(Me.TextBox4.Text)
        Dim PI As String = CStr(Me.TextBox5.Text)
        Dim Tel As String = CStr(Me.TextBox10.Text)
        Dim Fax As String = CStr(Me.TextBox9.Text)
        Dim mail As String = CStr(Me.TextBox8.Text)
        Dim Sito As String = CStr(Me.TextBox7.Text)
        Dim Img As String = CStr(Application.StartupPath & "\dbTemp\Logo.gif")
        '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 = strProvider & strOrigine
        Dim queryString2 As String
       Using Conn2 As New OleDb.OleDbConnection(strConnessioneB)
            Conn2.Open()
            'queryString = "INSERT INTO DatiP (Denominazione, Indirizzo, Local, CodFisc, PartIva, Telefono, Fax, Mail, Web) VALUES ('" _
            '& Nome & "', '" & Ind & "', '" & Loc & "', '" & CF & "', '" & PI & "', '" & Tel _
            '& "', '" & Fax & "', '" & mail & "', '" & Sito & "')"
            queryString2 = "INSERT INTO DatiP (Denominazione, Indirizzo, Local, CodFisc, PartIva, Telefono, Fax, Mail) VALUES ('" _
            & Nome & "', '" & Ind & "', '" & Loc & "', '" & CF & "', '" & PI & "', '" & Tel & "', '" & Fax & "', '" & mail & "')"
            Dim cmdInsDati As New OleDb.OleDbCommand(queryString2, Conn2)
            Dim Result As Integer
            Result = cmdInsDati.ExecuteNonQuery  --> qui dà l'errore.
            Conn2.Close()
        End Using
        End Sub