🚀 go-pugleaf

Hola saludos estoy tratando de trabajar con ADO
aplicandole la propiedad filter al recorset.

Encontre un peque�o ejemplo, pero hay algunas partes que no logro entender,
Soy algo novato en VB 6.

Expongo el codigo:

Private Sub AplicaFiltro()
Dim tFiltro As String
      tFiltro = ""

      If Trim(Form_Fld_Run) <> "" Then
        tFiltro = tFiltro & "(Fld_PRORUN =" & Form_Fld_Run & ") AND "
    End If
//porq los signos asteriscos q funcion cumplen aca y las comillas simples.
     If Form_Fld_Nombre <> "" Then
        tFiltro = tFiltro & "(Fld_PRONOMBRE LIKE '*" & Form_Fld_Nombre &
"*') AND "
    End If

  //Aca no entiendo a causa de que esta haciendo un LEN(parametro) > a 5
�porque? sera q hay espacios en el tfiltro o algo por el estilo.

    If Len(tFiltro) > 5 Then
        tFiltro = UCase(Trim(Mid(tFiltro, 1, Len(tFiltro) - 5)))
    Else
        tFiltro = ""
    End If

    If tFiltro <> "" Then
        registros.Filter = tFiltro
    Else
        registros.Filter = ""
        registros.Requery
    End If

    carga_grilla

End Sub

De antemano se agradece cualquier ayuda e informacion.

Atte

Claudio T.