После общения с уважаемыми участниками форума, решил сделать не динамическую фильтрацию, а запрос на основании полей со списком. Всего полей 4 штуки: Город,диагноз,врач,регион. Естественно пользователь может оставлять любое количество полей пустыми.
Получилась ниже приведенная структура, и она работает. Но наверняка все эти структуры можно упаковать в цикл (собственно по этому я и использовал массив), но как я пока не до думал.

Собственно вопрос,каким образом сделать построение sql запроса в цикле?
Или может не надо этого делать, и оставить как есть?

Спасибо


==============================================================
' Обработка нажатия кнопки фильтр, фильтрация по запросу.
Private Sub ButtonFltr_Click()

Dim sql As Variant
Dim sqlmas(4) As String
Dim sql1 As String

sql = "SELECT * FROM CompTbl"

If Not IsNull(PoleCity1) Then
sqlmas(0) = "City='" & Me.PoleCity1 & "'"
sql = "SELECT * FROM CompTbl WHERE " & sqlmas(0)
End If

If Not IsNull(Diag1) Then
sqlmas(1) = "Diag='" & Me.PoleDiag & "'"
If sql > "SELECT * FROM CompTbl" Then
sql = sql & " and " & sqlmas(1)
Else
sql = "SELECT * FROM CompTbl WHERE " & sqlmas(1)
End If
End If

If Not IsNull(PoleDoc) Then
sqlmas(2) = "Doc='" & Me.PoleDoc & "'"
If sql > "SELECT * FROM CompTbl" Then
sql = sql & " and " & sqlmas(2)
Else
sql = "SELECT * FROM CompTbl WHERE " & sqlmas(2)
End If
End If

If Not IsNull(PoleRegion) Then
sqlmas(3) = "Region='" & Me.PoleRegion & "'"
If sql > "SELECT * FROM CompTbl" Then
sql = sql & " and " & sqlmas(3)
Else
sql = "SELECT * FROM CompTbl WHERE " & sqlmas(3)
End If
End If

CompTbl.Form.RecordSource = sql

End Sub

Еще раз спасибо Владимир Саныч!
Все работает, этак с ходу я лет через 5 научусь.
Первая программа мне больше нравится, очевидно по тому что мне там сразу все понятно стало:)

Спасибо , не прощаюсь:)

P.S. Когда же я блин таким умным стану, ибо свою программу я вчера до часу ночи "создавал", хотя при условии стажа в 2 недели...

Ну будем стараться:)

А вот если глюпый пользователь нажмет кнопку без выбора вполях, когда они все пустые, тогда будет неправильный sql запрос, where нужно убирать както.

А у меня такие пользователи, просто чудо:)

Спасибо Владимир Саныч, не без гордости сообщаю что до этогj я уже сам додумался, немного не так но мысль та же:)

Прогресс на лице:)

Кстати о книгах, извините что прерываю :), что
посоветуете активно начинающему?