Ciao nel mio programmino ho costruito un active report, ma mi succede che quando creo il recordset, ne vedo solo il primo.
Posto il codice della sub che popola cosi capite:

codice:
Private Sub ActiveReport_ReportStart()
connetti
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    'costruisco la query
    Dim qry2 As String
    
    qry2 = "SELECT * FROM Clienti "
    rs.Open qry2, CN, adOpenStatic, adLockOptimistic
    If rs.RecordCount > 0 Then
        With rptClienti
        .lblNome.Caption = rs!Cli_nome
        .lblCognome = rs!Cli_cognome
        .lblCell = rs!Cli_cell
        .lblCivico = rs!Cli_civico
        .lblFax = rs!Cli_fax
        .lblIndirizzo = rs!Cli_indirizzo
        .lblPaese = rs!Cli_paese
        .lblProvincia = rs!Cli_provincia
        .lblStato = rs!Cli_stato
        .lblTelefono = rs!Cli_telefono
        End With
    End If
    rs.Close
    Set rs = Nothing
    Disconnetti
End Sub
le label si popolano, ma solo una volta, devo costruire un loop, ma come?