obviously you can't create a field with dot (.) on it.
neither with query, so, in the below expression:

If (rs.Fields("Song " & intItem & " chosen.Chorus" & intVerse).Value) = True Then

you will get away with this in the code if you Disable Error handling (On Error Resume Next).

always add Option Explicit on your module declaration so you will know which variables you have not declared or you are assigning a wrong value (datatype).