Private Sub Command17_Click()
Dim SQL As String, Kriterij As String, RecordSource As String
Dim Brojac As Integer

SQL = "SELECT * FROM Imenik"
Kriterij = ""
Dodaj_Kriterij Me.Text11, "(ime & ' ' & prezime)", Kriterij, Brojac
Dodaj_Kriterij Me.Text18, "grad", Kriterij, Brojac
    If Kriterij <> "" Then
        Kriterij = " WHERE " & Kriterij
    End If
    RecordSource = SQL & Kriterij
    Me.RecordSource = RecordSource
    If Me.RecordsetClone.RecordCount = 0 Then
    MsgBox "Nema podataka"
    End If
End Sub

Private Sub Dodaj_Kriterij(VrijednostPolja As Variant, ImePolja As String, Kriterij As String, Brojac As Integer)
    If VrijednostPolja <> "" Then
        If Brojac > 0 Then
            Kriterij = Kriterij & " AND "
        End If
    Kriterij = (Kriterij & ImePolja & " Like " & Chr(39) & VrijednostPolja & Chr(42) & Chr(39))
    Brojac = Brojac + 1
    End If
End Sub