Visual Basic - Continuacion Busqueda de Criterio

pgedicion_reservacion.MSFlexGrid1.ColWidth(2) = pgedicion_reservacion.MSFlexGrid1.Width / 3
'Se realiza la busqueda
strSQl = "SELECT *"
strSQl = strSQl & " FROM junioreservaciones"
strSQl = strSQl & " WHERE NumeroCliente Order By NumeroCliente ASC;"
Dim rs5 As Variant
Dim intRow5 As Integer
'Muestro los Campos encontrados
Set rs5 = bd.OpenRecordset(strSQl)
If Not (rs5.BOF And rs5.EOF) Then
Do While Not rs5.EOF
pgedicion_reservacion.MSFlexGrid1.TextMatrix(pgedicion_reservacion.MSFlexGrid1.Rows - 1, 0) = rs5.Fields(0).Value
pgedicion_reservacion.MSFlexGrid1.TextMatrix(pgedicion_reservacion.MSFlexGrid1.Rows - 1, 1) = rs5.Fields(1).Value
pgedicion_reservacion.MSFlexGrid1.TextMatrix(pgedicion_reservacion.MSFlexGrid1.Rows - 1, 2) = rs5.Fields(2).Value
rs5.MoveNext
Loop
'Se cierra la conexion
rs5.Close
End If
End If