Leer una BD y cargar info en un ComboBox en ASP

[RsOfT]

Tengo arriba:
-----------------------------------
<%
Dim CnnMM, RstMM, SLQ, Cuenta

Set CnnMM=Server.CreateObject("ADODB.Connection&q uot;)
Set RstMM=Server.CreateObject("ADODB.Recordset&qu ot;)
CnnMM.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("MM.mdb")

RstMM.Open "Select * from Marca", CnnMM
Cuenta = 1
%>
-----------------------------------

Mas abado en el ComboBox tengo:
-----------------------------------
<select size="1" name="CobMarca" style="font-family: Verdana; font-size: 8pt">

<%While Not RstMM.EOF%>
<option value="<%RstMM.Fields("Cod")%&gt ;"
<%If Cuenta = 1 Then%>
selected
<%End If%>><%RstMM.Fields("Marca")%&g t;</option>
<%Cuenta = Cuenta + 1
RstMM.MoveNext%>
<%Wend
CnnMM.Close%>

</select></font></td>
-----------------------------------

Lo que deseo es Cargar la Infor que esta en la BD "MM" en la tabla "Marca"...
El explorer me tira el siguiente error:
=============
Error Type:
Microsoft VBScript runtime (0x800A01C2)
Wrong number of arguments or invalid property assignment: 'Fields'
/Vehiculos.asp, line 63
=============
La línea 63 dice: <option value="<%RstMM.Fields("Cod")%&gt ;"

.::RsOfT::.
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pesimo gusto contentarse con algo mediocre cuando lo excelente esta a nuestro alcance--