Non capisco perchè tu usi i valori (mai usati) invece delle costanti mnemoniche:
rs.Open "sfide", cn, 1, 2
la costante mnemonica è immediata.

codice:
rs("giocatorea") = rs.Source = " Select * from [giocatori] order by rnd([id]);"
rs("giocatoreb") = rs.Source = " Select * from [giocatori] order by rnd([id]);"
Ma hai provato con il debug di queste due righe?
Sono completamente sballate.

Ciao