Private Sub Ime_Change()
Dim txtSearchString As Variant
Dim strSQL As String
txtSearchString = Me.[Ime].text
strSQL = "SELECT sifravlasnika,vlasnik,adresa FROM tblVlasnici WHERE [vlasnik] Like '" & txtSearchString & "*'"
Me.lstResults.RowSource = strSQL
Me.Ime.SetFocus
End Sub