Private Sub Form_Load()
  Combo1.AllowAutoCorrect = False
  Dim strSQL As String
    strSQL = "SELECT * FROM tt WHERE Naziv Like '**'"
   
  Me.Combo1.RowSource = strSQL

End Sub

Private Sub Combo1_Change()
Dim strSQL As String
    strSQL = "SELECT * FROM tt WHERE Naziv Like '*" & Me.Combo1.Text & "*'"
   
  Me.Combo1.RowSource = strSQL
  Me.Combo1.Dropdown
End Sub