Command - Esegue una Query

' aGGIORNA IL CAMPO Appalti.TipoFatturazione SU [CONDOMINI].[TIPOFATTURAZIONE] (MENSILE bIMESTRALE, tRIMESTRALE, sEMESTRALE, uNICO

Dim Cnn As New ADODB.Connection
Dim cmd As ADODB.Command

cmd = New ADODB.Command
Cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source= " & MyDirPath & "\Database\" & NomeDatabase)
cmd.ActiveConnection = Cnn

cmd.CommandText = "UPDATE Condomini INNER JOIN Appalti ON Condomini.id = Appalti.IdCondominio SET Appalti.TipoFatturazione = [CONDOMINI].[TIPOFATTURAZIONE];"
cmd.Execute()