Error 3075 en tiempo de ejecución

Buenos días expertos,

En un formulario de Access he introducido el siguiente código llenar dos campos de forma automática según el contenido que se introduce en otro campo (organitzador); va adjunto:

Private Sub Organitzador_AfterUpdate()
Me.Lloc = Nz(DLookup("[Lloc]", "[Organitzadors]", "Organitzador ='" & Me.Organitzador & "'"), "")
Me.Adreça = Nz(DLookup("[Adreça]", "[Organitzadors]", "Organitzador ='" & Me.Organitzador & "'"), "")
Me.Lloc.SetFocus
End Sub

El problema aparece cuando en el campo de origen (organitzador) el contenido contiene apostrofe, pues me aparece el siguiente 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 "Organitzador=L'esplai".

Gracias de antemano por vuestra ayuda!