just for Info, a Yes/No field will only hold True (-1) or False (0).
it will not hold Null, so there is no point testing it for Null.
also can you just use the Alias field as 001001 (for song 1 chorus 1), 001002 (song 2 chorus 2), etc.
instead of having a Column name with "space".
you then modify your code to:

sField = Format$(intItem, "000") & Format$(intVerse, "000")
If (rs.Fields(sField)) Then
...
...