Error en código VB de ACCESS 2007

[ErPiloto]

Holaa todos.

Por favor alguien puede echarme un cable con esto?

Necesito que un formulario me rellene un campo con un dato del propio formulario y otro de una tabla multiplicándolos. ¿Pueden ayudarme?

He puesto:

Código:

Private Sub num_klm_AfterUpdate()
Me.kilometraje = Me.num_klm * "SELECT euros_km FROM sala_maquinas WHERE id=1;"
End Sub

Pero no lo ejecuta, me da error.

Por favor que alguien me diga que está mal? estoy algo perdido.

Gracias.!