Создание вложенного запроса циклом - VB

Формулировка задачи:

Пожалуйста, укажите, в чем моя ошибка!
Итак, беру строку пользователя (в данном случае - 'commander total', хотя в других случаях читуация аналогичная), разбиваю ее на отдельные слова и составляю вложенный запрос:

TextArray = Split(t_text)
 UBound(TextArray) >  
        
sqlstring =  + TextArray(UBound(TextArray)) +  + Trim$(Str$(UBound(TextArray)))
 n =   UBound(TextArray) - 
sqlstring =  + sqlstring +  + TextArray(n) +  + Trim$(Str$(n))

sqlstring =  + sqlstring +  + TextArray() + 

sqlstring =  + TextArray() +  
 
Debug. sqlstring
Adodc1.RecordSource = sqlstring
Adodc1.Refresh

По достижении места "Adodc1.refresh" получаю такую вот шляпу : "Incorrect syntax near the keyword 'where'".
К этому времени Дебаггер вернул следующий сформированный запрос:

* from ( * from cat where dkeywords like '%total%') where dkeywords like '%commander%'

ПАМАЖИТЕ, кто чем сможет!!!

Решение задачи: «Создание вложенного запроса циклом»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> TextArray <font color="blue">As</font> Variant, SqlString <font color="blue">As</font> <font color="blue">String</font>, n <font color="blue">As</font> <font color="blue">Integer</font>, s <font color="blue">As</font> <font color="blue">String</font>

    TextArray = Split(Replace(t_text, <font color="teal">"'"</font>, <font color="teal">"''"</font>))
    
    SqlString = <font color="teal">"SELECT * FROM cat"</font>
    <font color="blue">For</font> n = <font color="darkblue"><b>0</b></font> <font color="blue">To</font> UBound(TextArray)
        s = Trim$(TextArray(n))
        <font color="blue">If</font> Len(s) <font color="blue">Then</font> SqlString = SqlString & IIf(n, vbCrLf & vbTab & vbTab & <font color="teal">"AND "</font>, vbCrLf & vbTab & <font color="teal">"WHERE "</font>) & <font color="teal">"dkeywords LIKE '%"</font> + s + <font color="teal">"%'"</font>
    <font color="blue">Next</font> n
    Debug.<font color="blue">Print</font> SqlString
                        