Mensaje de error

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
el error es evidente, te falta un espacio entre el 4 y ORDER

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail PUNTO com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"Alejandro Hernandez" escribió en el
mensaje de noticias
news:
Tengo este codigo que copie de otra respuesta, y me podría servir para
lo que estoy buscando, pero me manda un mensaje de error:
"Se ha producido el error "3075" en tiempo de ejecución:
Error de sintaxis (falta operador) en la expresión de consulta
'Producto = "a" AND id < 4ORDER BY FECHA DESC".

Dim Rs As Recordset
Dim Sql As String

Sql = "SELECT TOP 1 Lectura FROM Tabla1 "
Sql = Sql & "WHERE Producto = ''" & Me.Producto & "'' "
Sql = Sql & "AND id < #" & Me.Id
Sql = Sql & "ORDER BY Fecha DESC"
Set Rs = CurrentDb.OpenRecordset(Sql, dbOpenSnapshot) 'En
esta linea es donde me dice que esta el error per no se cual puede
ser'

If Rs.RecordCount > 0 Then
Me.Diferencia = Me.Lectura - Rs!Lectura
Else
Me.Diferencia = Me.Lectura
End If
Rs.Close
End Sub

__________ Information from ESET Smart Security, version of virus signature
database 6159 (20110527) __________

The message was checked by ESET Smart Security.

http://www.eset.com




__________ Information from ESET Smart Security, version of virus signature database 6159 (20110527) __________

The message was checked by ESET Smart Security.

http://www.eset.com