Mi piacerebbe sapere chi ti ha suggerito di nominare i campi con uno spazio... auguri.
Il Criterio scritto così è DEBUGGABILE e per chi non ha una sufficiente dimestichezza, fare DEBUG è la prima cosa da impare, prima di chiedere aiuto.
criterio = "txtRgtMonoPen = '" & rst("N R") & "' and " & "Udienza = '" & Left(rst("Data Udienza"), 8) & "'"
Debug.Print criterio
Ora vuoi dire che hai un campo che si chiama [txtRgtMonoPen]...? a me pare il nome di una TextBox e non di un campo...!