Data1.Visible = True
DBGrid1.Visible = True
Dim contador2, cont As Integer
Dim code_client As String
Dim consulta, consulta2 As String

contador2 = 0
cont = 0

Data1.Connect = "Excel 8.0;"
Data3.Connect = "Excel 8.0;"
Data1.DatabaseName = App.Path & "\nuevo.xls"
Data3.DatabaseName = App.Path & "\nuevo.xls"

consulta = "select lista$.[Code client] from [lista$] group by lista$.[Code client]"

Data1.RecordSource = consulta
Data1.Refresh

Text2.Text = "Encontrados: " & Data1.Recordset.RecordCount & " registros."

Do While Not Data1.Recordset.EOF
code_client = Data1.Recordset.Fields(0)

    consulta2 = "SELECT lista$.[Code client], lista$.[N° colis CWF], Sum(lista$.[Qté livrée]) AS [SumaDeQté livrée], lista$.[Réf Cde client], lista$.[N° expédition CWF], lista$.[N° expédition CEPL] From [lista$] where lista$.[Code client]=""" & code_client & """ GROUP BY lista$.[Code client], lista$.[N° colis CWF], lista$.[Réf Cde client], lista$.[N° expédition CWF], lista$.[N° expédition CEPL]"

    Data3.RecordSource = consulta2
    Data3.Refresh
    Do While Not Data3.Recordset.EOF
        Form2.Show
        For cont = 0 To 5
            Form2.Text1(cont).Text = Data3.Recordset.Fields(cont)
        Next
        Data3.Recordset.MoveNext
    Loop
Data1.Recordset.MoveNext
Loop

Data1.Recordset.MoveFirst
Data3.Recordset.MoveFirst