Visual Basic - error al mostrar una consulta

'generamos sub para filtrar

Sub filtrarfacturas()

'ESTE CODIGO DEBE SIRVE PARA TOMAR LA CEDULA SELECCIONADA Y MOSTRAR LAS FACTURAS A CREDITO DE LA TABLA VENTA FACTURA  Y LOS MUESTRA

'EN DATAGRID DE OTRO FORMULARIO

Dim RSfiltro As New ADODB.Recordset

Dim sql As String

sql = "select * from ventafactura where (ventafactura.codigocliente='" & cedula.Caption & "') AND (ventafactura.estado= 'CREDITO' )"

RSfiltro.Open sql, base, adOpenStatic, adLockOptimistic

consultacobros.Show

Set consultacobros.grillacobro.DataSource = RSfiltro

'UCase(Trim(cedula.caption))

End Sub

Sub filtrarcobro()

'obtener nombre campo a filtrar

If Cbofiltrar.Text = "Cedula" Then nombrecampo = "codigocliente"

'programar filtro

With Adofiltrar

   .CursorLocation = adUseClient

    'vamos a conectar bd

   .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\baseoptica.mdb;Persist Security Info=False"

    'contenido de la caja de texto del filtro unido a un comodin de busqueda

    busca = UCase(Trim(txtfiltrar)) & "%"

    '.RecordSource' "aqui va consulta sql"

    Adofiltrar.RecordSource = "select * from ventafactura where (ventafactura.estado= 'CREDITO' )

    and [" & nombrecampo & "]like '" & busca & "'"

    .Refresh

    ' mostrarlo en la grilla

Set grillacobro.DataSource = Adofiltrar

End With

End Sub