[Amigos estou com seguinte problema]

 Ao geral meu relatório de clientes ele não fica por ordem alfabética.

Uso o Access

     With PrintRelProdutos
            Set .DataSource = Nothing
                .DataMember = ""
            Set .DataSource = RS.DataSource
                With .Sections("Section1").Controls
                    For i = 1 To .Count
                        If TypeOf .Item(i) Is RptTextBox Then
                            .Item(i).DataMember = ""
                            .Item(i).DataField = RS.Fields(i - 1).Name
                        End If
                    Next i
                End With
               .Show 1
       End With

Valeu pessoal deu certinho

RS.Open "select * FROM CadProduto where (Descricao like '" & txtProcurar.Text & "%') ORDER BY Descricao", CnSql, adOpenKeyset, adLockReadOnly