Помогите оптимизировать алгоритм

String = 'SELECT * FROM Base WHERE '
if form1.text1.text <> '' and ...and form3.text5.text = '' and ... and form5.text10.text = '' then String = String & 'Pole1 = ' ''' & form1.text1.text & '''
else if form1.text1.text <> '' then String = String & ' and Pole1=' ''' & form1.text1.text & '''
end if

if form5.text10.text <> '' and ...and form3.text5.text = '' and ... and form1.text1.text = '' then String = String & 'Pole10 = ' ''' & form5.text10.text & '''
 
else if form5.text10.text <> '' then String = String & ' and Pole1=' ''' & form5.text10.text & '''
 
end if

Private Temp As String
 
Private Function WHEREstrind() As String
    Dim Temp As String
    CheckTextBox Form1
    CheckTextBox Form2
    CheckTextBox Form3
    'И так для каждой формы
    'Или организуйте цикл используя Screen.ActiveForm
    [code]
    WHEREstrind = Temp
    Temp = ''
End Function
 
Private Sub CheckTextBox(FsNm As Form)
    Dim TB As TextBox, Value As String
    For Each TB In FsNm
        Value = TB.Value
        If Value > '' Then
            If Temp > '' Then Temp = Temp & ' AND '
            'Предполагается что имена TextBox-ов совпадают 
            'с именами  соответствующих полей
            Temp = TB.Name & ' = '' & Value & '''
        End If
    Next
End Sub

'Прредлагаю такой вариант
Dim ctr As Control
Dim strWhere$
 
strWhere=''
For Each ctr In Me.Controls
    If TypeName(ctr)='TextBox' Then
      If Len(Trim(ctr.Text))>0 Then
         strWhere=strWhere & ' AND ...'
      End If
    End If
Next