DUVIDA SOBRE MODO DE PESQUISA

Private Sub cmdPesquisa_Click()


If frmArquivo.rstpasta.State = adStateOpen Then
    frmArquivo.rstpasta.Close
End If

Dim rst As New ADODB.Recordset
Dim i As Integer
Dim resultado As String
Dim retorno As String



rst.Open "select pasta_01,pasta_02,pasta_03,pasta_04,pasta_05,pasta_06,pasta_07,pasta_08,pasta_09,pasta_10,pasta_11,pasta_12,pasta_13,pasta_14," & _
"id from Pasta where pasta_01 like '%" & txtPesquisa.Text & "%' or pasta_02 like '%" & txtPesquisa.Text & "%'" & _
"or pasta_03 like '%" & txtPesquisa.Text & "%' or pasta_04 like '%" & txtPesquisa.Text & "%'" & _
"or pasta_05 like '%" & txtPesquisa.Text & "%' or pasta_06 like '%" & txtPesquisa.Text & "%'" & _
"or pasta_07 like '%" & txtPesquisa.Text & "%' or pasta_08 like '%" & txtPesquisa.Text & "%'" & _
"or pasta_09 like '%" & txtPesquisa.Text & "%' or pasta_10 like '%" & txtPesquisa.Text & "%'" & _
"or pasta_11 like '%" & txtPesquisa.Text & "%' or pasta_12 like '%" & txtPesquisa.Text & "%'" & _
"or pasta_13 like '%" & txtPesquisa.Text & "%' or pasta_14 like '%" & txtPesquisa.Text & "%'", cnn, adOpenStatic


If rst.BOF Then Exit Sub 'não encontrou nada"
    MsgBox ("Palavra não encontrada"), vbInformation
    txtPesquisa.Text = Empty
    rhtAssunto.Text = Empty
    txtPesquisa.SetFocus
    
 Else
   
 Do While Not rst.EOF
    For i = 0 To 13
    
    If InStr(rst(i), txtPesquisa.Text) Then
    resultado = rst(i).Name
    
    End If
Next i

If resultado <> "" Then retorno = retorno & rst(13) & "(" & resultado & "), "
rst.MoveNext

Loop

rhtAssunto.Text = retorno

End If

End Sub