Erro: tipos imcompatíveis

Preciso de ajuda, estou tentando trazer dados da coluna chamada DAT_NAME para uma lista suspensa que posteriormente será gravada na coluna DAT_SEASON.

Conexão:

<%
set rsTypesSEASON = Server.CreateObject("ADODB.Recordset")
rsTypesSEASON.ActiveConnection = MM_connDUportal_STRING
rsTypesSEASON.Source = "SELECT TOP 4 * FROM DATAS, CHANNELS, CATEGORIES WHERE CAT_CHANNEL = CHA_ID AND DAT_CATEGORY = CAT_ID AND DAT_CURRENT=1 AND CAT_ID = 297 AND DAT_CATEGORY = CAT_ID AND DAT_USER = '" & Session("MM_Username") & "' ORDER BY DAT_DATED DESC"
rsTypesSEASON.CursorType = 0
rsTypesSEASON.CursorLocation = 2
rsTypesSEASON.LockType = 3
rsTypesSEASON.Open()
rsTypesSEASON_numRows = 0
%>

<%
Dim HLoopernewsCampeonato__numRows
HLoopernewsCampeonato__numRows = -2
Dim HLoopernewsCampeonato__index
HLoopernewsCampeonato__index = 0
rsTypesSEASON_numRows = rsTypesSEASON_numRows + HLoopernewsCampeonato__numRows
%>
<%
startrw = 0
endrw = HLoopernewsCampeonato__index
numberColumns = 1
numrows = 4
while((numrows <> 0) AND (Not rsTypesSEASON.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>
Chamando o campo DAT NAME:

<% If Request.QueryString("nChannel") = "Campeonato" Then %>

<tr>
<td colspan="3">TEMPORADA:</td>
<td colspan="2">
<select name="SEASON" type="text" class="input-text" size="1">
<option value="<%=rsTypesSEASON("DAT_NAME")%>" selected><%=rsTypesSEASON("DAT_NAME")%></option>
</select>
</td>
</tr>

<% Else %>
<input name="SEASON" type="hidden" value="0">
<% End If %>

Fechando conexão:

<%
While ((startrw <= endrw) AND (Not rsTypesSEASON.EOF))
%>
<%
startrw = startrw + 1
rsTypesSEASON.MoveNext()
Wend
%>
<%
numrows=numrows-1
Wend
%>
<%
rsTypesSEASON.Close()
%>

ERRO:

[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério./fut/includes/inc_submit.asp, linha 369
Linha do erro em questão: rsTypesSEASON.Open()