Dividir una cantidad para guardarla en varios registros

[kikevar]

Hola Buenos Dias

Antes que nada muchas gracias, tengo un programa en vb6 tengo un formulario donde muestro los adeudes por diferentes conceptos de una persona la cual me da un total de su adeudo.

Como le ago para que cuando me pague el monto al registrarlo lo pueda dividir en las cantidades de cada concepto y encaso de que no liquide el total asigne cantiades por orden de importancia de los conceptos.

Espero averme explicado, gracias de antemano y espero sus comentarios

Hola les pogo el codigo que estoy usando pero no me da el resultado que necesito

Private Sub cmdCobro_Click()
Dim TotCobro As Integer
Dim Dif As Integer
Dim strSQL As String

TotCobro = txtEfectivo.Text

Set rsAdeudo = New ADODB.Recordset
Set rsPago = New ADODB.Recordset

rsAdeudo.Open "select * from Adeudooper where Importe > Pago and Credencial = " & Cred & " Order by Numero", db, adOpenStatic, adLockOptimistic
rsAdeudo.MoveFirst
Do While Not rsAdeudo.EOF

If TotCobro > rsAdeudo.Fields("Importe") Then
strSQL = "Update Adeudooper set Pago = Importe where Credencial = " & Cred & ""
db.Execute strSQL
TotCobro = TotCobro - rsAdeudo.Fields("Importe")
Else
strSQL = "Update Adeudooper set Pago = " & TotCobro & " where Credencial = " & Cred & ""
db.Execute strSQL
End If

rsAdeudo.MoveNext
Loop


End Sub

lo que busco es que a TotCobro se le vaya descontando la cantidad del campo importe y que cuando el campo importe sea mayor que TotCobro esta cantidad se a la que se guarde.

Gracias