ms access 2010 - Statement filter with control

Question

Why the statement is no filtering with the variable Busca ?

Private Sub Txt_busca_Exit(Cancel As Integer)
  Dim strQL1, strQL2, strQL3, busca As String
  Dim db As DAO.Database
  Dim rs As DAO.Recordset

   Set db = CurrentDb
   busca = Me.Txt_busca.Text

   Select Case Quadro17
   Case 1
   Me!Lista0.BackColor = vbYellow
   Set rs = db.OpenRecordset(" select idp,funcionario,datanasc  from tb_funcionario where funcionario like & ' busca '&")
   Set Me!Lista0.Recordset = rs
   Case 2
   Me!Lista0.BackColor = vbCyan
   Set rs = db.OpenRecordset(" select idp,atleta,datanasc  from tb_jogadores ")
   Set Me!Lista0.Recordset = rs
   Case 3
   Me!Lista0.BackColor = vbRed
   Set rs = db.OpenRecordset(" select idp,visita,datanasc  from tb_visita ")
   Set Me!Lista0.Recordset = rs

   End Select
End Sub

Thanks for any help

question from:https://stackoverflow.com/questions/65912867/statement-filter-with-control

Answer 1

Waitting for answers