Visual Basic - Error al insertar un registro

¡Hola!
Estoy intentando insertar un registro. Lo que hago es:
DataEnvironment1.Anyo
DataEnvironment1.AddNew

y ya esta hecha la conexión desde Data link properties, sin embargo me sale el siguiente error 3705:La operación solicitada por la aplicación no está permitida si el objeto está abierto
¿Sabéis por qué es?

Que deseas realmente hacer
Porque no usas un recordset aparte, o Con el Enviroment revisa q la tabla no este abierta en diseño. Creo que no pusite el código real
Porque Cuando Generas un Command con el Enviromente Se crean realmente 2 un rsCommand1 y Command1 para ejecutar el Enviroment1.Command1 antes debes cerrar el rsCommand1 usa esto y no te fallará:

If Enviroment1.rsCommand1.State=adstateopen Then _ Enviroment1.rsCommand1.close
Enviroment1.Command1

Esto es si en el command1 tienes alguna sentencia de insercion o update

pero si quieres usar el Command1.Addnew
Enviroment1.rsCommand1.Requery
Enviroment1.rsCommand1.Addnew