Me produce el error '-2147217904 (80040e10)'

Dim CampoF As String
CampoF = Trim(Nz(CCampos.Value, "Sin valor"))
If CampoF = "Sin valor" Then
MsgBox "Seleccione un campo de busqueda"
Exit Sub
Else
CampoF = CCampos.Value
End If
Dim CNF As New ADODB.Connection
Dim RecorF As New ADODB.Recordset
Dim ConsultaSQL As String
Set CNF = CurrentProject.Connection
ConsultaSQL = "Select Codigo, " _
& "Nombre, FechaCompra, Costo, Asignado, Estado," _
& "Foto from Producto Where " _
& CampoF & " like '" & TxtBuscar.Text & "'"
RecorF.Open ConsultaSQL, CNF, adOpenDynamic       *Aquí da el error*
With Lista28
.RowSource = RecorF.Source
.RowSourceType = "Table/Query"
.ColumnCount = 7
.ColumnHeads = True
.BoundColumn = 1
End With
Set CNF = Nothing
Set RecorF = Nothing
ConsultaSQL = ""