ma sbaglio o tutto questo:

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

deve essere inserito nel seguente ciclo:

while not rs.EOF

.... codice per il report

rs.movenext()
wend
Mi sbaglio?