Devi indicare al recordset a quale connessione si riferisce ...

rs.Open "SELECT DISTINCT [residuo mese precedente] FROM paghe WHERE (nome='" & NOME.Text & " AND mese = " & MESE.Text & " AND anno= " & ANNO.Text & ");", cn