Ver originalDim rs As New ADODB.RecordsetSql = "SELECT euros_km FROM sala_maquinas WHERE id=1;"rs.Open Sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic Me.kilometraje = Me.num_klm * rs!euros_km