SQL ser rigtig ud, men finder intet

Jeg skal have trukket * ud, hvor status = 13 og hvor category = "a". Jeg kan se i databasen, at jeg har en sådan bruger, men han bliver ikke trukket ud. Kan du se hvor det går galt?

    Dim RSTestA
    Set RSTestA = Conn.Execute("SELECT initials, status, category, bgcolor, fontcolor FROM users WHERE status = 13 And category = '" & a & "' ORDER BY initials ASC")