Problema con Recordset

[pablinff]

Hola que tal gente!
Bueno este es mi problema: tengo una página llamada pfemails.asp , con la cual al ejecutarla envío e-mails a una lista de usuarios obtenida desde un BD, el problema es que no logro asignarle a oMail.To los valores de los e-mails, puesto que me da este error, que no se porque es:

Código:

ADODB.Recordset error '800a0bb9' 

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. 

/pfemails.asp, line 40

Si alguien puede ayudarme se lo agradecería mucho!
Esta es pfmails.asp:

Código:

<%@LANGUAGE="VBSCRIPT" %>
<!--METADATA TYPE="TypeLib" FILE="E:\WINDOWS\system32\cdosys.dll" -->

<%
Dim datos,rs


Set oMail = Server.CreateObject("CDO.Message") 
		Set iConf = Server.CreateObject("CDO.Configuration") 
		Set Flds = iConf.Fields 
		
		' Se configuran los parametros necesarios para el envío
		iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 

1 
		iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 

"http://127.0.0.1" 
		

iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 
		

iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
		' Se completan los datos del usuario y la contraseña necesarios para el envio
		iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") 

= "[email protected]" 'usuario smtp
		iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") 

= "************"  'password para STMP
		iConf.Fields.Update
		' Se asignan las propiedades de configuración al objeto
		Set oMail.Configuration = iConf 




		' Remitente del correo
		oMail.From = "[email protected]"
		' Subject o asunto
		oMail.Subject = "Proximas Fechas"
		' Cuerpo del mensaje
		oMail.TextBody = "Instinto!!!!!!"
		
		

set rs=createobject("ADODB.Recordset")
'rs.CursorType = adOpenKeyset 
'rs.LockType = adLockOptimistic 

rs.open "select * from celmail order by id desc",con
' Recorremos el RecordSet
While not rs.EOF
oMail.To rs("email")
rs.MoveNext
Wend
rs.Close ' PAra cerrar el RecordSEt

		' Se envía el correo
		oMail.Send
		' Se destruyen los objetos
		Set iConf = Nothing 
		Set Flds = Nothing

	
If Err <> 0 Then
	Response.Write "Ha ocurrido un error: " & Err.Description
End if
con.close
set con=nothing


%>