Bueno,primero pásale la conexión activa cuando abres el recordset:
rsCheckUser.Open strSQL, adoCon
Otra cosa, el campo rotar es de tipo numérico? si es así con esto es suficiente:
strSQL = "SELECT * FROM Banners WHERE Rotar =" & num
A ver si esto lo remedia...
Salu2,