Como faço para que em uma determinda pesquisa em uma datalist com resultado em uma datagrid contados os registros que foram localizados a partir da consulta meu codigo que faz a consulta e o seguinte: Private Sub DataList1_Click() Dim strconsulta As String strconsulta = "Select * from Clientes Where Atividade = '" & DataList1.BoundText & "' OR Atividade2 = '" & DataList1.BoundText & "' OR Atividade3 = '" & DataList1.BoundText & "'" With Adodc2 .RecordSource = strconsulta .Refresh End With With DataGrid1 .ClearFields .ReBind End With Label1.Caption = "Relação de Empresa com o Ramo: " & DataList1.Text End Sub