Visual Basic - problemas con el recordset

Hola a todos... gracias por la ayuda hasta el momento...
Mi problema de ahora es el siguiente.. Todas mis tablas y formularios me andan, o sea los que me sirven para ver la informacion en el formulario principal... y los datos de la tablas los guardo con el rs.update y se me gusrdan de 10.....
Ahora el problema es en la principal...
Como hay campos q son de otras tablas y campos calculados tengo que pasar los datos...
Por ej
rs.Fields!fecing = fechaing1

rs.Fields!fecpago = fechapago1

rs.Fields!codbarrio = Txtcodbarrio

rs.Fields!barrio = Cbobarrio

Obviamente tengo muchos mas datos pero en todos me da lo mismo....

a y en uno que tengo un campo de $ la primera vez que abro el programa no me funciona el formato $ a partir de la 2 vez si Porq sera???
Y el error que me da es:
Error '-2147217888 (80040e20)' en tiempo de ejecucion
El controlador de evento del cliente llamo a un metodo no reentrante en el proveedor..

Sera que tengo mal la sintaxis o algo asi????
Bueno desde ya cualquier ayuda les estare muy agradecido....
Saludos

Tendrias que mostrar mas codigo.

Este es el codigo que tengo en el boton guardar

Dim fechaing1 As Date
Dim fechapago1 As Date
Dim sexo1 As String
Dim situacion1 As String
fechaing1 = CDate(DTfechaing)
fechapago1 = CDate(DTfechapago)
rs.Fields!fecing = fechaing1
rs.Fields!fecpago = fechapago1
rs.Fields!codbarrio = Txtcodbarrio
rs.Fields!barrio = Cbobarrio
rs.Fields!codest = Txtcodestudio
rs.Fields!desest = Cboestudios
rs.Fields!codact = Txtcodact
rs.Fields!desact = Cboactividad
rs.Fields!codtipo = Txtcodtipo
rs.Fields!destipo = Cbotipo
rs.Fields!codmodo = Txtcodmodopago
rs.Fields!ModoPago = Cbomodopago
rs.Fields!codplazo = Txtplazomeses
rs.Fields!plazo = Cboplazomes
rs.Fields!codint = Txtcodinteres
rs.Fields!desInt = Cbointeres
rs.Fields!montocuota = Txtmontocuota
rs.Fields!montototal = Txtmontototaladeudado
If Optfemenino Then
sexo1 = "F"
End If
If Optmasculino Then
sexo1 = "M"
End If
rs.Fields!sexo = sexo1
If Optenmarcha Then
situacion1 = "EN MARCHA"
End If
If Optbaja Then
situacion1 = "BAJA"
End If
rs.Fields!SIT = situacion1
rs.Move 0
rs.Update
MsgBox "Archivo Guardado"
modoeditar False

tio, trabajar con el recordset esos procedimientos no es recomendable.

Haslo desde el objeto connection o desde un commad.

Ok bueno gracias por la respuesta......
Yo necesitaba si o si guardarlo por el metodo de los recordset...
Bueno no te preocupes gracias = seguire probando hasta encontrar que es...
Gracias.