Estado E_Fail

[aavg]

Si ya cerraste tu recordset no es necesario el:

Código:

'Set myset = Nothing

Intenta comentando esa linea a ver si se soluciona.

Otra cosa que podrias hacer antes de consultar busca si:

Código:

if myset.RecordCount > 0 then
   myset.Movefirst
End if