Llenar DataGrid con Sentencia SQL

[chenri]

Hola, tengo una duda en VB 6.0, tengo una base de datos en access y en un form tengo un datagrid al cual quiero filtrar los resultados de acuerdo a una consulta de SQL, inserte el siguiente codigo:

Conexion
Dim sBuscar As String
Dim tRs As Recordset
Dim Algo As String
Dim A As Integer
Conexion.CursorLocation = adUseClient
Algo = InputBox("Introduzca La Fecha")
sBuscar = "Select * from aspirante where fecha_entrevista = '" & Algo & "'"
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

El codigo si realiza la consulta y si no encuentra ningun registro me envia el mensaje que no se encontraron registros, el problema es cuando encuentra registros no los representa en el datagrid... alguien me podria ayudar porfavor... me urge... de antemano muchas gracias