Visual Basic para Aplicaciones - AYUDA CON ADODC Y DATAGRID

Tengo un dgrid enlazado con un adodc. con el adodc recupero los campos de una tabla, en el dgrid de estos campos solo muestro 2 y los otros 3 tengo que insertar siempre los mismos valores. El problema es que no se como una vez que yo he rellenado las 2 celdas del registro que quiero insertar, como le puedo añadir los otros 3 campos que faltan.

he probado ha hacerlo en el metodo afterInsert del dgrid pero no me inserta nada. esto es lo que tengo

Private Sub dgDescuentos_AfterInsert()
adodc.Recordset.Fields("FECHACARGO") = fecha
adodc.Recordset.Fields("AGENTELIQ") = agente.Caption
adodc.Recordset.Fields("DTOCOB") = dto.Caption
End Sub

gracias