Pessoal blz, preciso fazer um contador pra um sistema onde na tela principal ele fale vc tem tantas reunioes pra hj com um dbgrid oculto por traz trazendo o relatorio caso ele queira ver quais sao as reunioes mas o detalhe e como fazer ele contar quantos registros vieram no dbgrid e jogar isso em forma de txtbox. segue o codigo que uso pra gerar o relatorio ja tentei usar o count mas nao consegui encichar no meu codigo

Dim AreaTrabalho As Workspace
Dim query As String
Dim dyn As Dynaset

Set AreaTrabalho = DBEngine.Workspaces(0)
Set XBCO = AreaTrabalho.OpenDatabase(App.Path & "Temp.Mdb", False, False)
query = "Select * From Reunioes order by data"
Set dyn1 = XBCO.CreateDynaset(query)
While Not dyn1.EOF
dyn1.Delete
dyn1.MoveNext
Wend

Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "Cadastro.Mdb", False, False)
query = "SELECT* FROM Reunioes order by data"
Set dyn = xxbco.CreateDynaset(query)
While Not dyn.EOF



If dyn("data") = DataReuniao Then
dyn1.AddNew

dyn1("DATA") = dyn("DATA")
dyn1("PASTA") = dyn("PASTA")
dyn1("PARTE") = dyn("PARTE")
dyn1("NATUREZA") = dyn("NATUREZA")
dyn1("PROCESSO") = dyn("PROCESSO")
dyn1("HORARIO") = dyn("HORARIO")
dyn1.Update
End If

dyn.MoveNext
Wend

XBCO.Close
xxbco.Close
Data1.Refres

nao entendi onde entra isso !