SoloCodigo

Mira lo puedes hacer de varias formas:

Forma 1:

Dim SQL as String
Dim Consulta as DAO.Recordset

SQL = "SELECT * FROM tabla WHERE campo ='" & dato & "'"

Set Consulta = Data.OpenRecordset(SQL)

If (Consulta.RecordCount >= 1) Then
    lblTotalRegistros.Caption = Consulta.RecordCount
    Data1.RecordSource = SQL
Else
    Msgbox "No existen registros para esta consulta.", vbCritical, "Error"
End If

Forma 2:

Haces el siguiente SELECT:

SQL = "SELECT COUNT(*) As Total FROM tabla WHERE campo ='" & dato & "'"

Este SELECT te devolvera en el campo 'Total' el total de registros que devuelve la consulta, si te queda alguna duda escribeme al correo y te respondere lo antes posible.

Nota: Desaconsejo el uso del control DATA y DBGRID, aconsejo el uso del control MSFlexGrid y MSHFlexGrid, si nesesitas codigo para saber como llenar un MSFlexGrid me escribes a mi correo.

Powered by Snake:D