problema con consulta

[dark_night]

holas tengo un problema al realizar la ocnsulta sql en la bd

tengo esto en el form_load

Código:

Const PathBase As String = "Base.mdb"
  
  Set cnn = New ADODB.Connection
  Set rst = New ADODB.Recordset
  
  With cnn
    .ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & PathBase & ";"
    .Open
End With
rst.Open "SELECT * FROM Datos", cnn, adOpenDynamic, adLockOptimistic

y esto en la funcion para buscar

Código:

Private Sub ProcesarConsulta()
  Dim trs As Recordset
  Dim tli As ListItem
  Dim Sql As String
  
  Sql = "SELECT * FROM Datos where " & CboBuscar.Text & "='" & TxtBuscar.Text & "' ORDER BY titulo"
  Set trs = cnn.Execute(Sql)
  
  With trs
    If (.BOF And .EOF) Then
        MsgBox "No se encontro el Registro Buscado"
  end with
end sub

el problama es k al comensar llamar a la funcion buscar, dice k no coinciden los tipos y me marca la lina del execute ....el problema es k no se porke..e revisado todo y no veo el problema

cualkier ayuda es bienvenida
grax