Se guardi il mio file troverai questo codice

codice:
Private Sub Form_Current()
Me![costo] = DLookup("costo", "trasferte", "trasferta ='" & Me![trasferta] & "'")
End Sub

Private Sub trasferta_AfterUpdate()
Me![costo] = DLookup("costo", "trasferte", "trasferta ='" & Me![trasferta] & "'")
End Sub
ovviamente devi modificare i nomi dei campi e delle tabelle a quelle che hai tu.