Control de usuario y busqueda en visual basic ?

[principefreddy]

hola les explico. cree un control de usuario llamado Ccargar, alli tengo un ListView llamado lv. cree tambien una funcion para cargar los datos la cual funciona muy bien.

Public Function Cargar_Registro()
' codigo para cargar
End Function

ahora bien, tengo un formulario llamado frmListado_Vis en el cual muestro el Ccargar y todo bien. pero llamo a otro formulario para filtrar datos en el cCargar y lo llama mas no me filtra, ni me ordena. aqui les dejo la imagen para quye tengan una idea de lo que es el formulario. y aqui les dejo el codigo que implemento para el filtrado. espero me ayuden.

imagen----------------> http://www.subetela.com/visor.php?id=108022



codigo------------------> esto esta en el formulario de busqueda. no me filtra, no me hace nada.

Código:

Public Sub Fitrar_Registros()
Dim Campo, OrderByCampo, Orden As String
Dim SQL As String

    If cboFiltrar.ListIndex = -1 Then
        cboFiltrar.ListIndex = 0
    End If
    
    If cboOrdenar.ListIndex = -1 Then
        cboOrdenar.ListIndex = 0
    End If
    
    If cboFiltrar.ListIndex = 0 Then
        Campo = "Codigo"
    ElseIf cboFiltrar.ListIndex = 1 Then
        Campo = "Cedula"
    End If
    
    Select Case cboOrdenar.ListIndex
        Case 0: OrderByCampo = "Codigo"
        Case 1: OrderByCampo = "Cedula"
    End Select

    
    ' si el recorset está abierto lo cierra
    If rs.State = 1 Then
        rs.Close
    End If
    
    SQL = "SELECT * FROM new_ingresos Where " & Campo & " like '" & txtBuscar & "%' order by " & OrderByCampo & " " & Orden

End Sub