Problemas com combobox

Alguém sabe me explicar porque que os valores do BD não aparecem no combobox da página?

O código é o seguinte:

<% SET CONBANCO=SERVER.CREATEOBJECT("ADODB.CONNECTION")%><% EnderecoBanco = server.MapPath("Vendedores.mdb") %><% CONBANCO.OPEN "driver={Microsoft Access Driver (.mdb)};dbq=" & EnderecoBanco %><% sql = "SELECT from Produtos"%><% conbanco.execute(sql)%><b> Selecione o produto:</b><select name="nomeproduto"><% while not sql.eof %> <option value="<%=sql("NomeProduto")%>"><%=sql("NomeProduto")%></option><% sql.movenext wend%></select><%CONBANCO.Close%><%Set CONBANCO = Nothing%>