Error al realizar un bucle

[quatrero]

Buenos días, les comento mi problema:

Quiero hacer un sencillo while y me está tirando un error que no se ya que más probar para subsanarlo, primeor el código:

<%
set cn = Server.CreateObject("ADODB.Connection")

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("db\db_expedientes.mdb") & ";"
SQLStat = "SELECT * from tbl_unidadesd"

set rs = cn.Execute(SQLStat)

%>

<%

do while not rs.EOF%>
<option><%=rs("uid")%>&nbsp;<%=rs("unidad")%></option>
<%rs.MoveNext
loop
%>

Como verán quiero llenar un <select> simplemente, y me da el error ADODB.Field (0x80020009)
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.

Y ya probé de todo y logro hacer andar esto.
Por supuesto, que la consulta trae datos, ese no es el problema, traté de antes de hacer el while posicionarme en el primer regitro, pero no pasa nada, cambié la forma de abrir la cadena de conexión y el recordset y tampoco, ya no se que más hacer.

Si alguien puede ayudar se lo agradeceré.

Saludos.