Have you read the code?
' correct logic, but will not work with example data
'Set rs = db.OpenRecordset("select * from qrytblUsuariosJSON where numFactura = '" & Replace(numFactura, "'", "''") & "'")
' => without filter
Set rs = db.OpenRecordset("qrytblUsuariosJSON")
I assumed...