Dim MyDB As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source = " & pathMDb & nameMdbAzienda)
            MyDB.Open()
            strSql = "SELECT * FROM Clienti WHERE Codice = " & Val(DatiTesta(3))
            cmd = New OleDbCommand(strSql, MyDB)
            Dim tb_nome As OleDbDataReader = cmd.ExecuteReader()
            If tb_nome.Read() = True Then
                ' aggiorno il record della tabella TESTATA DOCUMENTO TMP
                Call TabClienti()
                Dim NomiCampi As String = ""
                For x = 0 To TotaleCampi - 1
                    If Not tb_nome(x) Is DBNull.Value Then
                        Select Case TableMdb(x, 1)
                            Case Is = "integer", "double", "bit"
                                NomiCampi &= "[" & TableMdb(x, 0) & "]=" & tb_nome(x) & ","
                            Case Is = "date"
                                NomiCampi &= "[#" & TableMdb(x, 0) & "#]=" & tb_nome(x) & ","
                            Case Else
                                NomiCampi &= "[" & TableMdb(x, 0) & "]='" & tb_nome(x) & "',"
                        End Select
                    End If
                Next
                NomiCampi &= "[" & TableMdb(TotaleCampi, 0) & "]='" & tb_nome(TotaleCampi) & "'"
                strSql = "UPDATE DocuTesta SET " & NomiCampi & " WHERE TipoDoc = '" & TipoDoc & "' AND Numero =" & NumDoc
                cmd = New OleDbCommand(strSql, MyDBDoc)
                Dim RisQuery As Integer = cmd.ExecuteNonQuery()
            End If