Visual Basic - Problema con Busqueda de Criterio

Que tal, estoy solicitando su ayuda para que me asesores en el siguiente problema que tengo:

tengo el siguiente código

Tengo estas variables definidas
Option Explicit
Dim strPath As String
Dim bd As Database
Dim rsTitles As Variant
Dim strSQl As String
Dim blnView As Boolean
Dim rs As Variant
Dim intRow As Integer
Dim edicionreservas As String
Dim basesdatos As String

(Esto al cargar la forma)
strPath = App.Path
'Abro la base de datos
Set bd = OpenDatabase(strPath & "\Junio.dat")
'Abro el recordset
Set rsTitles = bd.OpenRecordset("junioreservaciones")
pgbdata.bdata_reservaciones.DatabaseName = strPath & "\Junio.dat"
pgbdata.bdata_reservaciones.Refresh
'Configuro la tabla de datos
pgedicion_reservacion.MSFlexGrid1.Cols = 34
pgedicion_reservacion.MSFlexGrid1.FixedCols = 0
pgedicion_reservacion.MSFlexGrid1.AllowUserResizing = flexResizeColumns
pgedicion_reservacion.MSFlexGrid1.Clear
pgedicion_reservacion.MSFlexGrid1.TextMatrix(0, 0) = "Cliente#"
pgedicion_reservacion.MSFlexGrid1.TextMatrix(0, 1) = "Nombre del Cliente"
pgedicion_reservacion.MSFlexGrid1.TextMatrix(0, 2) = "Tour Operadores"
pgedicion_reservacion.MSFlexGrid1.ColWidth(0) = pgedicion_reservacion.MSFlexGrid1.Width / 3
pgedicion_reservacion.MSFlexGrid1.ColWidth(1) = pgedicion_reservacion.MSFlexGrid1.Width / 3
pgedicion_reserv