Problema con filtrado

[principefreddy]

HOLA. TENGO UN PROBLEMA..

TENGO UN FORMULARIO REGISTRO Y OTRO FILTRO.. CUANDO ESTOY EN EL REGISTRO LLAMO AL FORMULARIO FILTRO PARA QUE ME FILTRE EN UN ListView..

EN EL FORMULARIO REGISTRO TENGO UN PROCEDIMIENTO QUE ES EL QUE ME CARGA LOS DATOS EN EL ListView.. LA MAYORIA HACE ESO EN UN MODULO PERO NO LO HICE ASI.. ENTONCES EN EL FORMULARIO FILTRO TENGO DOS COMBOS EN LOS CUALES EN EL COMBO1 DIRE POR QUE QUIERO FILTRAR Y EN EL CAMBO2 POR CUAL LO ORDENARE.

EN EL FORMULARIO FILTRAR TENGO LO SIGUIENTE:
Public Sub Filtrar()
Dim Campo, OrderByCampo, Orden As String
Dim SQL As String

If Combo1.ListIndex = -1 Then
Combo1.ListIndex = 0
End If
If Combo2.ListIndex = -1 Then
Combo2.ListIndex = 0
End If
If Combo1.ListIndex = 0 Then
Campo = "Codigo"
ElseIf Combo1.ListIndex = 1 Then
Campo = "Cedula"
ElseIf Combo1.ListIndex = 2 Then
Campo = "Nombre"
End If

Select Case Combo2.ListIndex
Case 0: OrderByCampo = "Codigo"
Case 1: OrderByCampo = "Cedula"
Case 2: OrderByCampo = "Nombre"
End Select


' si el recorset está abierto lo cierra
If rs.State = adStateOpen Then
rs.Close
End If

SQL = "SELECT * FROM expedientes Where " & _
Campo & " like '" & txtSearch & _
"%' order by " & OrderByCampo & " " & Orden

rs.Open SQL, nc, adOpenStatic, adLockOptimistic
'rs.Open "SELECT * FROM registro", nc, adOpenDynamic, adLockOptimistic
'**** EN ESTA LINEA ES QUE ME MUESTRA EL ERROR***********
Call CargarLista(FormRegistro.lvLista, rs)
ERROR DE COMPILACION: PROCEDIMIENTO SUB O FUNCTION NO DEFINIDO
************************************************** *********
End Sub

ESPERO ME AYUDEN..