Private Sub  ImeTastera_Click()
Dim sql As String
Dim kriterij As String

kriterij = Me.Text11 & "*'"
sql = "SELECT * FROM Imenik WHERE (Ime & ' ' &  prezime) like '" & kriterij
Me.RecordSource = sql
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "nema podataka"
End If
End Sub