Importante por favor ??

[principefreddy]

********* AQUI ESTAN LOS CODIGOS DE NUEVOCLIENTE***********
******************* BOTON AGREGAR ************************

ced = Trim(cedula.Text)
c = "trim(cedula)='" & Trim(ced) & "'"
nuevoclien.Recordset.FindFirst c
If nuevoclien.Recordset.NoMatch Then
nuevoclien.Recordset.AddNew
nuevoclien.Recordset(0) = Trim(cedula.Text)
nuevoclien.Recordset(1) = Trim(nombre.Text)
nuevoclien.Recordset(2) = Trim(apellido.Text)
nuevoclien.Recordset(3) = Trim(nombreempresa.Text)
nuevoclien.Recordset(4) = Trim(rifempresa.Text)
nuevoclien.Recordset(5) = Trim(direccion.Text)
nuevoclien.Recordset(6) = Trim(telefono.Text)
nuevoclien.Recordset(7) = Val(auditoria.Value)
nuevoclien.Recordset(8) = Val(balances.Value)
nuevoclien.Recordset(9) = Val(cierre.Value)
nuevoclien.Recordset(10) = Val(islr.Value)
nuevoclien.Recordset(11) = Val(aei.Value)
nuevoclien.Recordset(12) = Val(inflacion.Value)
nuevoclien.Recordset(13) = Val(contabilidad.Value)
nuevoclien.Recordset(14) = Val(ingreso.Value)
nuevoclien.Recordset(15) = Val(estimada.Value)
nuevoclien.Recordset(16) = Val(brutos.Value)
nuevoclien.Recordset(17) = CDate(fecha)
nuevoclien.Recordset(18) = Trim(Text1.Text)
nuevoclien.Recordset(19) = Trim(Text3.Text)
nuevoclien.Recordset(20) = Trim(Text5.Text)
nuevoclien.Recordset(21) = Trim(Text7.Text)
nuevoclien.Recordset(22) = Trim(Text9.Text)
nuevoclien.Recordset(23) = Trim(Text2.Text)
nuevoclien.Recordset(24) = Trim(Text4.Text)
nuevoclien.Recordset(25) = Trim(Text8.Text)
nuevoclien.Recordset(26) = Trim(Text11.Text)
nuevoclien.Recordset(27) = Trim(ajuste.Text)
'nuevoclien.Recordset(28) = Trim(total.Text)
nuevoclien.Recordset.Update
nuevoclien.Refresh

If telefono.Text = "" Then
telefonoempresa = "N/A"
End If



MsgBox "Los Datos han Sido Guardados Correctamente", vbInformation, "Notificacion"
'*********** AQUI PROCEDEMOS A LIMPIAR ************************'
no limpio texto cedula ni texto total para que me pase esos valores a el formulario deudas pendientes si cuando se la haga la pregunta respnda si.

'cedula = ""
nombre = ""
apellido = ""
nombreempresa = ""
rifempresa = ""
direccion = ""
telefono = ""
auditoria = 0
balances = 0
cierre = 0
islr = 0
aei = 0
contabilidad = 0
ingreso = 0
estimada = 0
brutos = 0
inflacion = 0
'fecha = ""
Text1 = ""
Text3 = ""
Text5 = ""
Text7 = ""
Text9 = ""
Text2 = ""
Text4 = ""
Text8 = ""
Text11 = ""
ajuste = ""
'total = ""



r = MsgBox("EL cliente Tiene Deudas Pendientes", vbQuestion + vbYesNo, "seguro")
If r = vbYes Then

'********** ya que la respuesta es si me pasara esos dos valores al otro formulario *************************'

deudapendiente.cicliente.Text = cedula.Text
deudapendiente.Text1.Text = total.Text
'************************************************* ****'

deudapendiente.Show
nuevoclien.Visible = False

End If
End If
End If
End If
'nuevoclien.Recordset.MoveFirst

'************************************************* ******************'
auditoria = 0
balances = 0
cierre = 0
islr = 0
aei = 0
contabilidad = 0
ingreso = 0
estimada = 0
brutos = 0
inflacion = 0
'************************************************* ******************'
End Sub

'****** ESTOS SON LOS CODIGOS DE DEUDAS_PENDIENTE**********
AQUI TENGO UN TEXTO LLAMADO TEXT TOTAL2 aqui estara el valor que estaba en el formulario nuevocliente en el texto total. otro donde estara la cedula del cliente y un texto llamado monto que es donde se colocara el monto que debe. tengo un boton lalmado calcular que sumara total2.text= val (monto.text)+val (total2.text)

como hago para que ese nuevo valor que tiene total2.text se valla a total.text que esta en el formulario nuevocliente para guardar los datos...