Hola, yo hice un combo con el siguiente codigo y mo toma el contenido del campo completo, modificalo y prueba
el codigo es el siguiente<select size="1" name="contenido">
<option selected value="">Seleccione opcion</option>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\db\database.mdb"))
set contenido=createobject("ADODB.Recordset")
sqltxt="select * from nombredelatabla where nombredelcampo=algo"
contenido.open sqltxt,conn %>
<%n=1%>
<%if contenido.eof then%>
<%else
do while not contenido.eof%>
<option value=<%=contenido("codconcepto")%>><%=contenido("concepto")%></option>
<%contenido.movenext
loop
contenido.close
end if%>
</select>
espero que te sirva, Adios.