Visual Basic - Urgente, ahora si ya me bloke necesito ayuda

Hola, ahora si ke no se ke hacer, mi sistema estaba jalando muy bien y en un formulario ni le movi y al momento de chekarlo me marco un error ke la verdad no se porke, tengo el siguiente problem me marca al momento de guardar en la base de datos el error de ke no enkontro elemento en la coleccion deseada, este error seria ke no se llama igual el campo en la base de datos sin embargo no es asi, ya lo cheke y no se ke pasa, ya hice nuevamente la base de datos y no funciona, el codigo es de la siguiente manera.;
dataeventos.recordset("Fecha_de_Programación")=date
sin embargo me marca el error antes mencionado, porfa si alguien me puede decir ke sucede, se lo agradecere mucho porfa

prueba esto

dataeventos.recordset.fields("Fecha_de_Programación")=date

si no funciona elimina los guiones bajas y escribe el nombre del campo seguido sin espacios tanto en la tabla como en el acceso

dataeventos.recordset.fields("FechadeProgramación")=date

espero te sirva
suerte