Why the statment is no filtering with the variavel Busca ?
Private Sub Txt_busca_Exit(Cancel As Integer) Dim strQL1, strQL2, strQL3, busca As String Dim db