Buscar fecha en MSHFlexgrid

[ka0s]

Buenas gente, mi consulta es la siguiente:
Estoy realizando un programa en VB, donde lo que hace es conectar a la base de datos (ADO). Tengo un BUSCAR, que lo que quiero que haga es que busque por VENCIMIENTO. O sea que se ingresaría una FECHA en el BUSCAR y después tendría que visualizarlo en la grilla.

Yo lo que hice fue lo siguiente:

Private Sub cmdbuscar_Click()
If txtbuscar.Text = "" Then
    Call Conectar("Select * from infocuota")
    MsgBox ("Ingrese la fecha a buscar"), vbCritical
    Set grilla.Recordset = RST
    grilla.Refresh
Else
Call Conectar("Select * from infocuota where fechadepago like'" & DateValue(txtbuscar.Text) & "%' "
    'Actualiza la grilla
    Set grilla.Recordset = RST
    grilla.Refresh
End If
End Sub

Y lo que hace es dejarme la grilla vacía, o sea como que NO ENCONTRÓ nada con ese valor ingresado.

Ya probé de 1000 maneras distintas y no consigo como hacer. No sabría si el formato de la fecha esta mal o que.

Espero que me puedan dar una mano.

Saludos!