Código:
Set tRs = Conexion.Execute(sBuscar)
With tRs
If (.BOF And .EOF) Then
A = MsgBox("No Existen Registros En Esa Fecha", vbOKOnly + vbInformation, "Registros")
Else
Me.datagrid.Refresh
Set Me.datagrid.DataSource = tRs
End If
End With
....no os estais liando?
un detallito de nada... si msgbox no devuelve nada relevante, pq asignas A a msgbox?
a lo que va el tema de verdad .....
no utilizo habitualmente DATAGRID pero si quieres que el datagrid te muestre los resultados de una 'source' de datos, debes hacer el REFRESH después de asignar el Datasource, no antes (digo yo!)
Saludos