Problema con ADO en Access

[alekorn102]

Bueno el problema es el suguiente tengo que hacer una aplicacion para un Tp que me pide hacer ABM de Clientes y ABm de las cuentas de los CLientes.

El tema que tengo tres tablas:
CLiente
Idcliente
Nombre
Apellido

Cuenta
N_cuenta
Saldo
Fecha

CliCue
Idcliente
N_Cuenta

Estoy usando ADO en VB6 con Access y el ABM de Clientes esta perfecto el tema esta en Cuando Quiero ingresar en una Cuenta a ese CLiente Como hago para que me agregue tmb a CLiCue los Datos Necesarios para que exista la relacion?

les dejo mi codigo del Formulario de cuentas pero aclaro que tengo otro de CLientes que es el que me trae para aca. que si lo necesitan lo pongo aca tmb.

Código C:

Private Sub btnAdelante_Click()
        setStatus False
        AdoFrmCuentas.Recordset.MoveNext
    If AdoFrmCuentas.Recordset.EOF Then
        AdoFrmCuentas.Recordset.MovePrevious
    End If
End Sub
Private Sub btnAtras_Click()
        setStatus False
        AdoFrmCuentas.Recordset.MovePrevious
    If AdoFrmCuentas.Recordset.BOF Then
        AdoFrmCuentas.Recordset.MoveNext
    End If
End Sub
 
Private Sub btneditar_Click()
    setStatus True
    cmdAceptar.Enabled = True
    Frame2.Enabled = False
    btnAdelante.Enabled = False
    btnAtras.Enabled = False
    txtCuenta.Enabled = False
End Sub
 
Private Sub btnEliminar_Click()
    If (AdoFrmCuentas.Recordset.EOF Or AdoFrmCuentas.Recordset.BOF) Then
        ' Avisar de que no hay registros
    Else
        ' Eliminar el registro actual
        AdoFrmCuentas.Recordset.Delete
        ' Movemos al primer registro para que los cambios se hagan permanentes
        ' (también podriamos haberlo movido al último registro)
        AdoFrmCuentas.Recordset.MoveFirst
    End If
    MsgBox "la cuenta esta Eliminada"
End Sub
 
Private Sub btnNuevo_Click()
    
    
    AdoFrmCuentas.Recordset.AddNew
    AdoCliCue.Recordset.AddNew
    setStatus True
     
    txtCuenta.Text = ""
    txtSaldo.Text = ""
    cmbDate.Value = Date
    cmdAceptar.Enabled = True
    Frame2.Enabled = False
    btnAdelante.Enabled = False
    btnAtras.Enabled = False
    
    
    
    
    
    
End Sub
Private Sub setStatus(status As Boolean)
    txtCuenta.Enabled = status
    txtSaldo.Enabled = status
    cmbDate.Enabled = status
End Sub
 
Private Sub cmdAceptar_Click()
    
    
    
    setStatus False
    AdoFrmCuentas.Recordset.MoveLast
    
    
    MsgBox "la cuenta esta cargada"
    cmdAceptar.Enabled = False
    Frame2.Enabled = True
    btnAdelante.Enabled = True
    btnAtras.Enabled = True
 
    
    
End Sub
 
Private Sub Form_Load()
    AdoFrmCuentas.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\base\banco.mdb;Persist Security Info=False"
    AdoFrmCuentas.RecordSource = "select * from Cuenta where N_Cuenta in (select N_Cuenta from CliCue where idCliente = " & FrmClientes.getCustomer & ")"
    AdoFrmCuentas.Refresh
    AdoCliCue.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\base\banco.mdb;Persist Security Info=False"
    AdoCliCue.RecordSource = "CliCue"
    AdoCliCue.Refresh
End Sub
 
 
 
Private Sub Form_Unload(Cancel As Integer)
    FrmClientes.listCuentas
End Sub
 

Espero que me puedan ayudar! y aclaro no se mucho de Ado ni Visual