ASP - problames con acceso a datos

Al intentar acceder a una base de datos me da el siguiente error:
Tipo de 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.

El programa es el siguiente:

dim cn,rs
set cn=server.createobject("ADODB.connection")
cn.open"provider=Microsoft.jet.OLEDB.4.0 ; Data source=c:\inetpub\wwwroot\acdatos\prueba1.mdb"
set rs=Server.createobject("adodb.recordset")
rs.open "select * from clientes",cn
rs.movefirst
while not eof
response.write rs("nombre")
rs.movenext
wend
rs.close
set rs=nothing
cn.close
set cn=nothing

Hola:

Prueba el siguiente codigo. Aqui puede ser que no obtengas ningun registro de tu consulta anterior o que en la linea del ciclo while te falto hacer referencia a rs.eof y no solo es eof.

dim cn,rs
set cn=server.createobject("ADODB.connection")
cn.open"provider=Microsoft.jet.OLEDB.4.0 ; Data source=c:\inetpub\wwwroot\acdatos\prueba1.mdb"
set rs=Server.createobject("adodb.recordset")
rs.open "select * from clientes",cn
If Not rs.Eof Then
rs.movefirst
Do while not rs.eof
response.write rs("nombre")
rs.movenext
Loop
End If
rs.close
set rs=nothing
cn.close
set cn=nothing

Gracias por la respuesta, asi funciona. Cambié el while wend por el do until rs.eof y me ha funcionado.

Gracias por tu colaboración y saludos