Visual Basic - Que está mal aqui

hola a todos

qisiera saber que esta mal aqui

Set myRecord = myDb.OpenRecordset("SELECT loto.id From Loto WHERE Loto.Numero1 = '" & D & "'" Or "'Loto.Numero2 = '" & D & "'", dbOpenDynaset)

gracias

En principio si Numero1 y Numero2 son numéricos, van sin comillas simples. Debería quedar:

Set myRecord = myDb.OpenRecordset("SELECT loto.id From Loto WHERE Loto.Numero1 = " & D & " Or Loto.Numero2 = " & D, dbOpenDynaset)

Tendria que ser haci:
Set myRecord = myDb.OpenRecordset("SELECT loto.id From Loto WHERE Loto.Numero1 = " & D & " Or Loto.Numero2 = " & D, dbOpenDynaset)