If strgblStateID = 3 Then
strsql = "SELECT tblMain.COTRound, tblStates.StateID, tblMain.DayID, tblTimeFrame.TimeFrame, tblTimes.Time, tblPrograms.ProgramName, tblPrograms.ProgramCode, tblChannels.ChannelName, tblStates.State, IIf([tblPrograms].[ChannelID]=3,6,[tblPrograms].[ChannelID]) AS TasChannelID " _
& "FROM tblDay INNER JOIN ((tblChannels INNER JOIN tblPrograms ON tblChannels.ChannelID = tblPrograms.ChannelID) INNER JOIN (tblTimes INNER JOIN (tblTimeFrame INNER JOIN (tblStates INNER JOIN tblMain ON tblStates.StateID = tblMain.StateID) ON tblTimeFrame.TimeFrameID = tblMain.TimeframeID) ON tblTimes.TimeID = tblMain.TimeID) ON tblPrograms.ProgramID = tblMain.ProgramID) ON tblDay.DayID = tblMain.DayID " _
& "WHERE (((tblMain.COTRound)='" & [strgblCOTRound] & "') AND ((tblMain.DayID)=" & [strgblDayID] & ") AND ((tblMain.StateID)=" & [strgblStateID] & ") AND ((tblTimeFrame.TimeFrameID)=1)) " _
& "ORDER BY tblTimeFrame.TimeFrameID, tblTimes.Time, TasChannelID;"
Else
strsql = "SELECT tblMain.COTRound, tblStates.StateID, tblMain.DayID, tblTimeFrame.TimeFrame, tblTimes.Time, tblPrograms.ProgramName, tblPrograms.ProgramCode, tblChannels.ChannelName, tblStates.State, tblPrograms.ChannelID " _
& "FROM tblDay INNER JOIN ((tblChannels INNER JOIN tblPrograms ON tblChannels.ChannelID = tblPrograms.ChannelID) INNER JOIN (tblTimes INNER JOIN (tblTimeFrame INNER JOIN (tblStates INNER JOIN tblMain ON tblStates.StateID = tblMain.StateID) ON tblTimeFrame.TimeFrameID = tblMain.TimeframeID) ON tblTimes.TimeID = tblMain.TimeID) ON tblPrograms.ProgramID = tblMain.ProgramID) ON tblDay.DayID = tblMain.DayID " _
& "WHERE (((tblMain.COTRound)='" & [strgblCOTRound] & "') AND ((tblMain.DayID)=" & [strgblDayID] & ") AND ((tblMain.StateID)=" & [strgblStateID] & ") AND ((tblTimeFrame.TimeFrameID)=1)) " _
& "ORDER BY tblTimeFrame.TimeFrameID, tblTimes.Time, tblPrograms.ChannelID;"
End If