Visual Basic - Llenar DataGrid Consulta SQL

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

mira access reconoce las fechas en el tipo americano osea mm-dd-yyyy
asi que en la consulta pone
fecha_entrevista = #" & Format(algo, "mm/dd/yyyy") & "#
y ademas algo definilo como date no como string

mira te puedo sugerir que utilices un objeto adodc utiliza tu rutina para actualizar el adodc y el datagrid lo enlazas al adodc y refrscas esto mostrar los registro en el grid