Multiplicar un dato de un Form por uno de una tabla en ACCESS

[ErPiloto]

Me sigue dando el mismo error y me remarca la línea 2.

Código:

Private Sub num_klm_AfterUpdate()
Dim rs As New ADODB.Recordset
Dim Sql as String
Sql = "SELECT euros_km FROM sala_maquinas WHERE id=1;"
rs.Open Sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Me.kilometraje = Me.num_klm * rs!euros_km
End Sub

Lo que me remarca es "rs As New ADODB.Recordset"

Alguna idea?
Gracias.