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

End Sub