datos a un text

[Sergio18]

Hola,

Os cuento, yo tengo una base de datos de acces conectada a un msflexgrid con ADO, la tabla que tengo puesta se llama "Clientes", cuando yo doy al msflexgrid se añaden los datos a un formulario que he creado, tambien tengo relacionada la tabla "Clientes" con una que se llama "Pagos" en acces, entonces, lo que quiero es que cuando yo de al msflexgrid y se inserten los datos en el formulario quiero que me aparezca el 'Importe' que tienen que pagar en un text.

Campos de tablas:

Clientes: IdCliente,Nombre,Apellidos,Direccion,Ciudad,Provincia,Telef ono,CP.
Pagos: IdPagos,Importe,IdCliente,Descripcion,Fecha

Y tengo que hacer eso sin poder utilizar un bucle, solo con una consulta, de momento la tengo asi pero solo me añade el primer registro, y con todos lo clientes (cada cliente tiene un importe distinto o no tiene):


Esto esta puesto en el msflexgrid

Código vb:

Set cnPrueba = New Connection
'Establecer sus propiedades
     With cnPrueba
        .Provider = "Microsoft.Jet.oledb.4.0"
        .ConnectionString = "prueba.mdb"
    End With
cnPrueba.Open
           'Insertamos el importe de los clientes en un text
        Set rsPagosDevoluciones = New Recordset
        
        With rsPagosDevoluciones
            
            .Source = "Select importe from pagosdevoluciones where idcliente = idpagos"
            .ActiveConnection = cnPrueba
            .LockType = adLockBatchOptimistic
        End With
            rsPagosDevoluciones.Open Options:=adCmdText
            Text7.Text = rsPagosDevoluciones!importe
 

Saludos, espero haberme explicado bien