Dim rsUslov As ADODB.Recordset
     Set cn = CurrentProject.Connection
     Set rsUslov = New ADODB.Recordset
         rsUslov.CursorLocation = adUseClient
         rsUslov.Open "SELECT * FROM tblTempSQL", cn, adOpenForwardOnly, adLockOptimistic
      If rsUslov.RecordCount = 0 Then SQLSearch = "SELECT tblTemp.* FROM tblTemp"
             
         SQLSearch = "SELECT tblTemp.* FROM tblTemp WHERE (("
            rsUslov.MoveFirst
         Do While Not rsUslov.EOF
            SQLSearch = SQLSearch & "(tblTemp." & rsUslov.Fields("Pole") & ")=" & Chr(34) & rsUslov.Fields("SeBara") & Chr(34) & " OR "
            rsUslov.MoveNext
         Loop
         SQLSearch = Left(SQLSearch, Len(SQLSearch) - 3) & "))"
         Me.frmTemp_Subform.Form.RecordSource = SQLSearch
         Me.frmTemp_Subform.Requery