ho bisogno di eseguire una funzione "aggiorna query" mediante VBA

Posto Query1 è da dove devo copiare il valore (campo installazione)
mentr table1 è dove devo copiare il valore (campo Offerta_fornitore)

ho scritto il seguente codice... che ovviamente non funziona suggerimenti su come posso modificarlo?

Considerate che Query1 contiene un'unica riga, mentre table1 diverse righe e devo necessariamente posizionarmi sulla riga contenente "installazione" nella descrizione

Function Copia_valori_calcolati()
Dim inst As String
DoCmd.OpenQuery "Query1", acViewNormal, acEdit
inst = installazione.Value
DoCmd.OpenTable "01_Sottogruppi_linea"
If descrizione.Value = "installazione" Then
Offerta_fornitore.Value = inst
End If
End Function