From c12a2bfc7fe55de41cba5278d7c641fa5f088ef6 Mon Sep 17 00:00:00 2001
From: Dominic Reich <dominic@mm.st>
Date: Fri, 25 Mar 2016 21:22:10 +0100
Subject: [PATCH] Changes frmPersons Title to whatever we want (edit or add
 Guest)

---
 .vs/Gästeliste/v14/.suo              | Bin 65024 -> 69632 bytes
 Gästeliste/GästeDataSet.Designer.vb | 366 ++++++++++++++++++++++++++
 Gästeliste/GästeDataSet.vb          |   2 -
 Gästeliste/GästeDataSet.xsd         |   7 +
 Gästeliste/GästeDataSet.xss         |   3 +-
 Gästeliste/Gästeliste.vbproj        |   4 +-
 Gästeliste/Gästeliste.vbproj.user   |   2 +-
 Gästeliste/frmAbout.resx             |  34 +--
 Gästeliste/frmAbout.vb               |   2 +-
 Gästeliste/frmMain.Designer.vb       |  10 +-
 Gästeliste/frmMain.resx              |   6 +
 Gästeliste/frmMain.vb                |   2 +-
 Gästeliste/frmPerson.designer.vb     |  32 +--
 Gästeliste/frmPerson.vb              |  35 +++
 14 files changed, 457 insertions(+), 48 deletions(-)

diff --git a/.vs/Gästeliste/v14/.suo b/.vs/Gästeliste/v14/.suo
index 002150806af4c28d4379f58eade0621f0486e5b1..6a612cb627274580955eef71897e37861a714d9a 100644
GIT binary patch
literal 69632
zcmeHQ3!GzBdB3x}z%C0apa_Z>9)$%q*}NZHKxUHJhs?6W&alivwzHWeGn?IHG9;PV
zUD&N#i`G^UOVKJmiukIfJX}z$O0|`?N(IykS_F&K))uN2wXL-X{r~UDncRDGliVcp
zO1LM#FZbSa&pprYeCIpg`ObH~@#qOpf8^7z`+;I`7c0w^7hhVX9If$Rrny&Mr6|YY
zc{$+4mtJ~_uX+Hl2jJ0m9a00^lstYV#i8^oleiX?18hpm?qubt+4erC!B_8oBsQ}C
zGvDm#L%73H5qJ<O=9N9lW~4rjyMASVgIM&hPga)Arq3$Zzcqh49*7F`Ro#e^Q?kmS
zl2DS$Ui?oeX=ST2g__79H<L=yJc?Q0vz28%Yw&a)z-szGLD=ic9ZQy<<(@)L@~DqA
zU<f%#0MfH5ncpD&rpvz-Q9Z=Y3U>_P*9Kf=e?AfZCjj{BOk7t3nB`XkP605CbgS@u
z65thpqX6{h`{QvxU4EvYHl47>pYKjLJkxJ3+_8xFw=BdxS`O2X>n2V3&A5Lv;8MVr
zvj1hcvJM9Umjku|h5*BWD*)R8BLL=qXZflv3+rYV{3Cz_APM066s~OValr1fUk2Ab
zfW3e$AP1NP<N?<J_+0_l*Ou@3JcE1oV&2nTi~H*U2LXow*8{|xmtI=P{_hTa`kN8i
z|49VkB>pdC|6gVI|JnX8@j%i6*{@%NwqgHgzi0nvIBoyuGsC_T@7VwOOt%8}q^-P{
z{h#5qeV^|Zs{gM<UhMu~yZ`r~FDwHr2dn@b1vnaT41nz>fo*2H?yCVS?SCwAVKv}5
z4Ni1lO}soyB*))0xR8<(1OHJ3=Q{x&gIs81=K%E}&-WVu)?ni=D)U8#-3kt|1kNUd
z6bTa=&X+u~zd?lLzt2J#*?J9vtFQkA|Bsgg#=z}uLs^pm&VN_~<h(P;QxTk82G9HI
zM7jp)bFAbzW3~MEAglvGr?3BE)cG{hEzQn{3gGxS4-m5v@s0N1jr2MGz7AkDebRIp
zN4@%wA=O4W!1^ce&`kY*7U6$J#saPnoNON4ElXLz)#|)Qe61*_A^p?vz<G()@_zzh
z*OVg|M!H3$JAksX-iN?>a}HJlMi4Wt%>O6@X{P)iM|k23-FBoftkywR8N+oya=@N9
zgZvOD8@V%4e#&9UYgsM-M-i5M8r>vH$vJOHJU0D*9MWgH7#b|6PkOO~l?LZgg6QLY
zxVrHlQJnbq;@*ur4}LM+jn4LxYV25#^xuehnyLR7!rw=x7S3Aw!^#HC{-VH@DFa3X
zG5=;%QtqWj+Tf2xm-T-o+Idn*q2>1>g#_+}45Fa8P-?y-B~Bsz0^a0sug6HHFU!tr
zgQV5h%kWQ}q1y_q+k=!R5PuZ8APp3hkkpS{dVNRy<2-?Lf2-+ViLlHAT@-YdJ+MM+
zjkyrvYW=q&|IpIED^OxeT@t8c*0Y`->+9Mq4=8`r_1{eTjpSkHAblq?<^Wi&e{K49
z|F=Say0`!Lf}&CG$kC?4XKY5V5Pab724f)kAL5;KW_`ry$FbtXvga^To<gtVn8y@3
z29y49>?1EW0}Aa{E-*$h`+PpqcjKv<^tJfE1!?5a|0(yD<M0rkv+C$CxUPEgU_a77
zx5@OGdDa14J^qV*-zS3A{3rj#v80*u???D=mt$mIXyGLIQ_e%4jywu^OUh8mu1P+F
zw4QPw%6Ulp*_MohJQ#W5lL3@Ro&q=(K;D$&qc$Cm*?c|&SB{@&0nP?+9&rwUbxI!X
zJiz$?V!&DeX`KtO4#0Nz0K5R!lOGTO1OXucM=#1)*8_eNa3SC#z{P+!0WJab0{Q?^
z0QrJ`zy<*GwyAuT@?UNKc|VBvmjku|h5*BWD*)R8GVBiAUj?`t5C>2mOnKBOU>6_(
zVAv$CDF8XXaliy%Hy{J3CI6kmyK4XiKoL*^Oao>BoU>5gOF8hhfa?HEhw|Uw2D}Au
z81T8CDC#GUd>4^6`(PaPkVl^&??I{{p2-c9`yhY7Fq|0`;g>*9aj0DTH1f~>;!ycF
z4_YE#HJZkijmi)49s4+Gj<{>=8&hdhLgkH1X#W{-EyF+9^MCtqdgb`5Hazt3^qXJ!
zOB80d7oec3Yn<B;E^AzVK_g`z;+QMsRce_<3B^0sh!^>C<Ju2g>cejYPcejb0S80C
z(>QQt7&WpH5X0L|c+&^Y>vFuADA$AwesZoiiZoIxcbr5_Vf;d<(;#B<qVyir$SC~z
z^Qb9{`%%>F7(ylxHjM8>YFHos{pxcVscG9ltUGbdi9DE~cTSXnUq_KruX<(Onmf>c
zU9Fpk()+H!<K8j@ID}Fr%Xq>$54kY%zD64CQfr-D8u`O%6%QHf#Vw@2vZum-H=@6+
z?Rt*<m&7(+>xGr?xc=~M`7j69X4BUu`EqZ6ZC$i_-%kCvnx^)<cG7Q*{~S?kyH@c3
zlZfuS<tQ7c&(XZLL;5`=C9)1`hpfDL9Jd?~>9&K?41(Tm!>B(9Y8S;yZ!aihKl}+p
zki>0OE)#)G{>guy0e|v2%!5ggDzA^hhrAWt2q-l*5C(9i^phhh<uO)i@LJFx@?qrB
ztfo&sfN9gQ|8q1hAa#!A8$g4z>S&;!3D=sHQ~q)~;vpZ_O8VqAw7i8@9x{k`9FydT
zNFK-NApcZ(Q>IO4d~fzV2G5mbV&UqgFL@$4@{2F@|1OlD>7E2{tLba&-#E^RdLBoq
zi3^nZ$kOZ6l}~8@9?1_|O@9O*&y>gCM*WZcb3MoT$Jq$LIfK>o{~TfaFb2{!N}sd8
zdXD}7WCY;+z-sz`fv`U*N7^`jUpb`th3S(+VA^!%q4d7rz$5u{y2j~qR#V%N{&IfA
zxslcM{}f@rUyibI`VHxS)AN6u{x2Q+|2x2gw*r0_a6RB{fVTsF5AY7a?*sk-@J_%D
zfExkt0^9_6H{cHeHv|3%a0}o)fcFCa81O#8`vJECJ^=V2;6s2914sjJ!}TM8+sn`N
z)55**{}kZQ0C$wb+==U5fV%;oF8duRU+=^9Gv)jHas3?N0l?=0UjTd&!1y^;{1V{H
zfWHF#HQ+0N2LXQr_*=l=0lo_O8sH(o-vho5co^^q;8DQ00N(^K&VRs_JpE$;@;2WA
z(ElHCeFE@3z>|Qd0PK7J1b7<o1HdzYe+K*z@GpRW1^fu`Z-9RXJPUXZ@E?F50~qgr
z;`&p-^MIcLeh&Br;J*O>4fr3xF9H7x_!Z#)051T34R{ft5~`lY^e2L_^_)%ro1g#9
zG5zm39}Uzh{a=P}ZwOzt-FJQAdtbQY?knrHwb{G7dK$}5j6Bvt$&Z9=#s&V8>so@R
za{cr*H@t27_V4Vz^6>iG@4Y+9GNC)^oLM<*`5k#+*=_CAU#)l-%6~rPcjMq+bC^wW
zU7Ks^LT-2M$5SUh^5Em{=hxga_VyFDlAxNjz`5{U12_*r{JsD{9Crd-fOP;jfUcb~
zh!`lF)k?+8B$IL$!1Z~SWk2R7DP`o*W7Q~H?FDB;2B_D7C@K!jN-J_bj~YL9<b{q7
zdru{=N80RvKMwrdd-IVS2ku|-Oz^a4m)~`Q!O8lmb(J;cLhkkh^t~-}IGug^x#h<{
zlRf&$*o{wdKr(6TT5((PZ>Q~L-nI3ql}Zczm1|R^Ap(O}KlafNIoF?+-*NA%NBej5
zlY~~4%BtM_Bz*ftNF5eS2H!6I?{xZS1;@HMjBen=gXI5DHNk0PSo^vAYCyI>Wh&iQ
zI=e(>HSkunHRt~m0NMVpx7**Ws=CfkFXgAkjnMmPM*kaPgqOYkH@S2o2QCfWJqY0_
zhtk*o!s~yt#m6u^n^0Gs3d)u0ibE2*Cq_+E^I}2&UpG#ehtm5F;PKUEFJt<Bm@}r4
zhrQ4W%VQNpXmIGi*FI7I?3M749aH<R*8OI@pv;oam_FCTsC#C02QcODCnBEL0<5<G
zMugoBpfje=^*8DRb6tq*KaF(2x&FX(PeEK(({~{3&8zSSXH4I2|Ce|BSMcuuWH*%D
zWCfzs_$U4o@1&~{Oy^Dcwe&FJpH?4JyB1uO9~iD&|E4@>HGp|Ayf%G29lpcmH^%hM
z>5n!i`Y56Q*>w5efGAehNMEExy*ObBK*%t+;ECFJ!dIIE=>Mzh?{9>s)$*T)u%s7s
zjn@Bc`M*z8RE_^u@P8@E{~PUpVE>>Fw!cRC+5d=l($xs2^VatNO~C3De$*@-0<D>Z
z1`25oeW;Dv$hEuwq7S?VEq`$T3rAdzz0~idrlFMh*2{w&f14@)Wr$Enb*VS3*EN@V
zHq1>Hy|WP?0{xSw>wgQ<e^t3qbEW^&O!>9#Z(JMFQd(R8Xa4nn>f!c6ygLqwaQ@h;
z>)*0rnB%DnI(q#W)hqkt_Mr!HN9kIurU+Uhw3{yiJ@X@c0N@pg6M1DOXaqrdzGvt_
zv6RlaqWNq#oh)VYlSS9Y^klk_NxEVg)gw_ju*-Y3ntAQ_$5Em_c-i#EbjdZG&u5Ek
z9oy4|B4W76=kmGSE>AGD))Ae~mZl5oizd_4r9vXR)-gCemdzwDO&=J}?@do$H0Jh=
z2gXC=9#1OZPWTcu%b=XD#=3o|e}5@G$rxR#$56Ud%1lla8RU%@UYVIp<@ZUyi}#L>
z_9c>g@qR-lolPx&_cDFS`l3UF?|uLIAC7$E4bj_&pKv_B;*lrbcP4D!^bJKv5#i#k
zOf*`ZsjPuj)@;Q3%#=#Y_bBf;@fTk@5B6qK9bOI>#wD>k<DHL*5-shPk@YXuD_t1J
zsN=a8{cR7*K~7dWU|;kVc&KpU2eDo}iCrrWVBR2hr3^-+6c@}o&h^b(UaUVd;0R#p
z;%y$Ysy$f4t&}<5fjK6X<DAQ^EjYh0^LJsl%K=~k|HZt<xbN`IYRggIdIR*XH)6Ne
znVNb!6SO=AD&GgZ;5+URUkjSQ4Y5VxFMUSU6o!$?6evIA&~g<;mBXZFLJ@D)0?P*Q
zJx7kMh-r%&Uf`g>KoCPX5?8G=K5O6Y#KY3Xzg}>*DNsnU<40;AxWI=~PexHLQOkNE
z?)(@Zxw|NcTJqx>QGdJ_{vp+0+=n&yk=c76Ldx*Iay$%Akp5n^6-At0ywN$L8Qg0C
z)Q>-aJWhccGTt$DK1^DZhHei>c;2O|T54n8z~-~?J+aP#))w{#1#Oc1w~Tn`Qn5}e
z2^S*^<D!aG<JJ}UEoTt=J!8YjXAb3vqc60^wYY$>+^@xW#z0@$pGx=@P$!h;Qlr0!
z*tt)Rd3Mw+ztCo(jyZQ9@Eg)4^OCa_s&#s5hd-lcs@v2wDiY56>5@mRPFI$Vl4S9g
z_7hl+dSxKZGKQ8ham`b_)9ZYsYSzf{HNKEBa+X!0gc2L129XTKwf5SfYS%B<=xSlL
z9y>OpR%l&QU_`8cU^B5Ijqe2}i(bJwFn6OkKnvwA5C^od_G1rV5SmzV&_~(V<Q{E@
z0TXF2hZ;&-5JOV!YaH>%fst{<Ds5Ou-n?E9i0k<DIA+QR5Hm45r?xP6MkH{T0{&;!
z{mK(6r!fZK>?{>vId^q%IUARbD+!(3io}S0W$I(4E%$YFX(i6;DS?#12%8J!k4X<3
zw|u69>*6x>V`@=u!hZ>4p_TIP?cnl~iVOR`TvrkM=&h8wGI#Af8ZB%qTPbBHk3^K%
zlJm4u&Rhp$@Rcaz7)nX*rDC7V8l~clzf;F3{oK)|nLS!*@lK}Evi}aK<MTBQF<kPM
z)P>M<Ys1iYU?1VCikNA*Fyj`M_loKag>oJJH!+o4l)M4?IL-r%VZ?~ax74IIzRe&F
z+Op(6V$N}rxH2p`{b~-?rL$_nl_Ac9lIj<n`{-k@jTh#5m9=P|S5gu3v0`2-B-J9X
z<nr|?n}>B_4#9DSy;J7;7{j+rn{yI<e8zTWJ4!f=(9QMS>U!mV21;|yt;KL{QCLpl
zyjaXXq$MWKB!<v(Y-N^-vkkFNopS-k=>Q&a{{*dd#_`*RR9K4+d`AvL&PBL-p2NGG
zI)|a8BUc`WIlD{Een)yn8=PVfJY(oV4Y1z2X^g7wNpcipX|;|ef4TA8)DO}35XrAo
zvLGmqz%Db+-K+*X8Fyrf<!D!pJ2He>$-9+jr_P@dN2)n|vl`ijFPo#NOGoNbnUiYE
zZdS_flS(w=P|RwflexcIGxTcy!5Gr4Cc1g%LkYCDKe({oWIk6itC{Ye8#Ti>o7GPD
z$UnI9pvMxycbk>Elj(+WHX-?jYPw+zX{-r32dP|#qW#cUiDBip7b}1P%p9EH$aqg%
zi$VPRF}C)reurT5vln%K9ab&-5u&%eei>B1abpdU*2ev~(#p8C7+vb@fpY`S4b!l&
zsn=F;VWorfMp}>GjXUZw(&p%L{L=>MoA5uk`Jr4<?B8fMFWk4@i<;rNW1O3Jto_Fx
z>QXnOf2g(ph)>&gGHqVlj;w_U+DX5HKeRemP*?sYfwiPmoudEWZ27xQ|DWZj4kWKu
z&_}EPZ&W<=dB(<l;Xp8v@&)~AUts4>(yn95DvT?m`P@{ZkS?s;lql{V%3PZUX<K=6
zS*37mA(fd-WM{)LFRNCRbF_jtHA0f`uO7`zOy&#eXrh=_dU{qP4Sw0^`>V@o50whg
zaa`-j6_fcwHZxYyy7WWm5<d$%m!VK1kPHMp5uZQp4o7ybm62<;Kw0ooVl11U+q5iH
z^Ud{?Qp?Jz{ntz<vYFBW*#^5jSIa`oM-A;1ZB*9MQC9F~DQ1(Hv|82iH|jSK^^E$j
z^pjc(jbxV$OSc_-M;tOnTCS(<cuE!HprA$dxqy3NPt7><=eM%@crRT$ezZbuo}Z$s
zL!r%!Oz#BT90nNkXRI&1K1l1bUi18!*U`e}Aql+`YO4r)cZ*vejqzt;>!uoiq>cB+
zx<hk~D<ySJiS4xTcuUPD;z$u!TKZWGTruW>m>}%MYy0=YwNG_^sAJ2#ybG|f{m7UX
zuJ@2Ki&hgBEf+UO8O%GWRmb|ddC}{K`mdAF(9dHoDAvptgA&X3k-ds*wmf5DDb&ym
zu!mSwK#r(m%Us>E=<UW_akY|G61cueo?|ik8zmlDq(6@QRH&kSUOG7v`CJNhWaJdl
zY!yeQ^46ZDY7|ax{oz7(N?o?*r(6tIpE;{y@EAZZUE~TSEvr)-pai~8XzplzDEn!&
z|C{Hy)N`%ufBqyQ{BAkY#_0#^C6BX$mZ|(R=e~4x1D9Vuj_Y;h`<J`@f4!{}Q7LEQ
z^7RKl9Q&5rd&$k)e{#xmy`Q~6C3`~sI<6wz=LLQe_h>I#jHc3JK9Q9>dvm}&iLAz*
zz6?`OFGTDsY339mk$XftF?+~Rs=QoJVQs}|=M@OajBj$Qm-2VB7uw!*0>sbkPQG)i
z=N@tg8y%yht_rz~X^f<DuZdOy%zgA)2{7h)$C^$+8R60VGdjJDn>!G=vcR;J-T3DX
z!6N<OXLI4y^wq!SVxu-e3!lv<V(<Sg$-Ta;#-{iGszZcSNM@JhAxsrjE%tb`gT1(9
zpf^cd>2qX|B&9I-WlqcV1F^Gjii5{Y#<xYuUnSQK=|_bU@Xm}@nEC0ya;w<f+IkdE
zjB9QEM^GYr|M$X;Pa9{4C2bcm^VRQTxA%X~l6&>sN%I;@gPWzEoxT6NnR6H^_uT>_
zoCTrJU<T1F|H3`N?X9S%u>VV+uCRKe<(h=<m08||zBI$GRL>37@>cEU&DI~Nr^_Jp
z2a+n@%%JB*G5e<lS+)eZ(#p!RQ8NMc8i_=L&Y0U5;W=E?+&@Zrv?sRSjo)>VesATy
z)9>@doW0(F-x=%mx?@4NKiVJbJ#=v6S3U*{E!hnI;+lKc%-B>Rzvp0beSEqIyDRZj
zK9`xyBymkn=hBm<Vtgi3#3GraSei~{@(!=t6NvK@n0YD2Cp58Y@5c+dDZ~boD>GvU
z4_@bu;;U%L?Tm)JQK!cfb34P~sL$zk_qwAIkH_uyM-Dx_#0!*5WF}o!&S5pPSi$uv
z&O6L#@o6>uZTk-kJ0CV{8(KWD?LWw~G*}yE=bzWJAYj{n(4Xl-I&W?-;tbFMbNd9;
zXy*#Mv~X+Nf2j0TxtoIWTZ*h|*RO5=!M6V}u(`dR7S`FBZ*>AYW4$;BH{=VsZ!hsO
zHO+IXrOK8WX?NLyEp@vMfASqy#kpHjZ%=69thm_rKT4_&HtpKj_CM;|@#)sRgxsZF
z%XU!;@0!z8SvtD~<^GP!uEAQR?BxBia_6+%=TfgVyLlH}y>fT=9=CcW@5Y^6waUwV
zTC^8n+y5}LRWhLJLR_QTlBl*-LMme0|FG?U$bAQMYc0_@MpfHzkRiA<uXVQl552WX
zy>!O5|DmlNGu-J`p53<pQL)Bq*6!^|rIw;p!nXe*=5f{g_-*?iM&0YqvHx-C;Dtl^
z>@-g}xmdfVjzw;_zc1X|7xp@P10k=|zoCDFGZKjQI|E*?*YEfD1^a^jLkH3Mdn5tK
zT+(%m_(v<TZWMgK8VU_txc<)*a$2{-UE2ntl!n;$Ut~>CTSC7>V=35wxvOU>Xzo{5
zKed{XW_J4TeR0k8zh3>N2W~s*&XH3;apzN<tB9Q+m4EI0rP2M&nB(gH$<n^*!uZbQ
z+$#;KIyTxgcFbEEYZGa2C=ncUJJUXY!0Gpf!_G)BHSP?g6XU*!Kb`gkBQCew7w`rS
zR#!``>qz%;pmBpzY3u6f`uG*9LRhS<5Eh$N2-_|c!iF>oVS`d3Oru(+RWpk(RNQT~
z>M2T(!Hxi@EmY5nb%b)7_0`;C<#;wTHh(>A{$ifvR`$wP?#}h?leL|%LcY`U*u^WU
z%qJmf3k}ezn_2iTGyZdbGK*aGlk#rK|5VQ#jUnYULJm$9yKmASwXpxz3Fp(uvWYqK
z(&YWv_B@xebqh(h{U3?5=JsqF+ixMR8^&lA{oC<t#{Li5zsAX?^JzC~?bYId)Il6g
znwUs$NlfCO+WD?4HoM5C$vus09kl~iOnfzQuxhn^GuHGf8aZ3RKjZnR-CjQ`vf<CR
z|0Hd8+4i5Bp&tupU&v@N!?ypVw?WmK{ioIizpFJ<<HQ`Z-kPY(8@lE{1<TC0FYGpv
zpY%D0hQ<ChUpSN;^Mq5*peNvS`aOZ5GvW<|oRLJ*Hy-i2Lt|s<L*#}z-jILz?#bWZ
zxgJv3R;*{-)295ca<*f;_SuZqn`j5aw*Mt9F&b;fw*TdT-EDdDkKmq-bwnc)w*4=0
zHj;S_+4jHWUUwrdnOh{Y?SC2Vf7$k*FaR4|V@oa-`z^Hn)XDarr1cXk=atj?AxHJ<
zbJS@#$b1dYeE(;2yKV)SbiD-|V^&HL$BA(puoBDD=EN!Nq@pGDKA?nDdlsWOFCwI#
zClOJ{C~-c*ezf&bfOjlFPMEqEX^$d5VdRD2!EVqb^n`hqcSg0fK)K>Q7IIVD_8KDO
zp?KmzTHF2;w_!D9KdwRv8dHsmB`Ez@i)sJKw*O+EAJdxsFx&o1H`sr%zQo>*YH;1T
zKHkDIaO+|~2(WDZ&qXy%Rn{@HYL-eh5iqO&Y3u)0R6A__zpk>sX6ye|>;IjK2_sp4
zTmP>a(|=_O+l~5v(~#(76^Ckp)6CGbv|%pnY}S_Zm`i`mG`PjO*R2+$7FMJ=t;nP*
zdDZXc6jpbIKF(X`D1X+ZO+iR`JdpT=VME#lJGMpG=o9AO=UeL4VKy~Y=Ec_ktf9ic
zpp3u0{*NwNaUHt;KmXLf7xw9C>5;Y!XK;V*$5SUh^5Em{=hxga_VyFDKFlht?A;M}
zigGS|*8t7~oDaAFuomD1xB%+_LT;+GHG&};)zw<Rs6AE)Dn0Tj<zUiAQ}Y@eXXBLU
zJbrs2gy-7IUeJD?IY|jI<^BAp(;v1_$<>iI^*??b___DyBR3A*zv7wTY0oad>jZ;S
z6R-0pk9u%Ha8CQ{`W1@I;dJ)t=awJ;O!nv}V>dqaOGZ@P)^(z9_-g*~cMzrG@f2Kl
z5g5Gsv5$Vpx&EyDj(b-<+P|Y;Rn;|?ipMk6UUjK(U9<%AMGL%!mAK50>S&LHt6-Xu
zR}%RD)i&{OKHJZH?J=QR{B^1QjjNyIXkTiY?7HdM_c+gf@13WwyY+?ZpM2^RqMor;
z&Crq7kUF;oi^x4EgrDz79OQT+*58jT;rxqPkZ~M@!a4GO-y-MRh~aNTo_L<uTL8v)
z_H*~u05u>y;4-}UxuI<k#6RbvA)NasW}>7J+%`JgBBoYGkjma}#+-xPK~YbN7->1?
zM45JLPciVS`4+KL%XT5OH7a@|e$-z;)gcL%xdnMtmV$FJ=(Nff+g1Hv>JLS$G^l&0
zrecXwB0i8$CbIG2bZ#m>ykSVa&Lm5@sX!<a9QC^ckzlZ_BhA>4zHo9no4r`^?Jkw3
z)~{PvOzuwS5=B=olPu(m`SFq~na{0DrDxLFJgf_^6ABMzZ4}4INDba<{zp+y;hAsA
z1TnKxul4kCzH9-1=1Z1j&SQwwi0?^o^*mWeaF6D;+=YJA=@vMtdZiHWD4}By;2w^C
z)Jq?JBY27_1MrQgT10W>a`fgwXlxBC+gdaKV1_WVQ-AILPwjo-nfshuPx{1<&N$`a
ztB96H!bv~X#gMyA$XOpw3b<TVy&*5gd4y}W-bPW2;$-V2N)lFep#q>(9+Y$p{|V47
zp;04dOyYhNv5cX-31Cqe--pz&KK%RD=P*(;FNWDn27APi--j$<T63KG_Ezh^KIyyT
zi4UA}==^g(@T-*%>^Sgs&%Lbcsy5)B1BXiYdCIHY$s^CkXjay1-V+ivxNRPL*{<$d
zWfnCbGau2P^z&Ioq2<Jd7*Q5V|8IWlu(tevsmRxt`Z~lyjIuWWS8rUc=m}fV8}2mz
zPs;Di$3m^IE&nk;UA(j9KTzLNZU|qs-FJQAdtbQYZXRyclsodkvfJAEzNy6Qz;j;%
zy{%0=y`i8x;&&C&Med52op$23r-iv}DCqT%M#7<R$b<Rm<alPn5UHZ<t;%P62D~&|
zj7K@C&KDAe1DB=`xTeO9B~p~}IZk}b0Y}-wSUfQ`<;o={Gvn!ENn2>gbYXIRdG_v{
zoxM9TdtaX@=3F!Cve1sU^VKc#-^G@rwk}8MRLOOF`;O*!-cft*Hup35#hpR7D>Yhd
z`HyI+W~El0B{ixipImJDPp&vNoyn%wd0`lo!_OsEBT6GVblBtekNVs`KgRCjbY44#
z@m@K<D#psdtr>(}`*U0mnB^qSE(@?r7@MaH8CSkAu}%c1R2=r9T>Fbul2b0I7k>hy
zsyHOt+j0WUb4VVy*XteygX9SXkWG%Uv*q&C9@kL=&Rj8t;uZ7Lg=E^9O&rKit6V|z
z&7v+31S6hc*ez>Ht_?WKRl9HBKG!~<TC-?=&$^K<14HU^0e5s*Dz&El98Slj`Ke60
zkmecLJWyL(YOBi;Ms&QXr>b@J_=u-s-0O13`=fn*BktIMD-!a=FCQM<I2aq*<m%gU
zd3*vW;Bs+?%V;tc^e5fna3~P;c*i`6Q5=KlflXYudo(>3N(92G(3r<J<`1XBT5GSa
z^!{`$zSL4ZRWIDw{Ificy%p=bONW2f9X=liHrB$ET~&x&A%m?{fhjF)s)w_GD*q2h
C-Jy^G

delta 5887
zcmeHL4N%kP8UMe3{s|!l2oN<OAfZ?h2_z68u?R5<76Ap6t<H8g`MlEegJFVzDAB{#
z^{h&sUE@yI`ms%&=S1S_hF49k*Y<j+h}%_XH%sk#b=7`?uCPt^Jb#jk+ES_K+1vHK
z`{jM!=l%Y@&-=X3Kh7P3^FIMwvd1eqj^hzGhlYkQ;}}AHsB{t^a%Shp{0HlLSQKiU
zk3lov%zw<m4St>=MGYuYlO=DV5CBa9tAb~v^fvXyqyQ#FwAaZXL9YB!1S%#VLJ(mH
z6(SHZ5rI<<MPfeACkJC5iuf<;X+4urjzLUD#3E7<G||oW@~p^I6m$qZA`Ov_Fd$6r
zr4gDLC_ILkiJ)0>FwaGp5wj4{*hum?3PmUc%|n4&HMf@@RIb883t}}Q4gp^>NAQdW
z@A{Ec%n4%ASSO)+WoqI#6Vp197@C6;@#o)TILgEi>4~H92tPNZqa^p$3%;B<8?G4|
zq9w=>K?whte%`Q+bVwwwy)<`J!c5;rm<5NoA!u6K66JpW!oK3qS1|+{`5yI1B1`=>
z*v*xsQ_|^<1elYI#@*Ox2Vy5;7lIo62J_z{euvnD*o)YQ_&s7j!h?X0qy*s=63!>t
z*j0#`KAF7(GpA2f&<N+S;yhI@o^Di;;tCf2iTDUXWr&uSxk9W#qUn=~(uqp0p%4a5
zA%$R5>YzWQL^d5Y#4J^VJ@kx>%=HnULb?Tod^t2L3uHLv5SckOWSil-vRFu@BHkFb
z2^?Vy1Ug7@mKRVEU|?F-_m2^kO_qSGBbyXAGSA~s&0|3<85MCpCG?LkhSzyL*u%>N
zvO;PprQHb}42BoLNnQu`h>flsJF|i#r<IxEdQLH^Sq?aIi)Cc`YF|eM*}aPlnevc)
z;jY6d5GVVZ!{`p;zWy}k1aWjx$95bM1wq{Hdk5S*Sk-#yR~3u7eSGnqRH%|6Zuais
zR<lcF<Wy-xB6)e>c)V3&!=e%f!n#M}O0-e3%aH(8l+oZ<5N9M4Z{!NdL6c$9M#){$
zjVG5GhX7}kJ)atr_oI9k=5(3;gZXp1%=w5phyp|*q6je;;co-kl4!*fs95MzLe-==
zp#lrAVN#<j$4Z;Ohl7?5A2bY3DUeOU-T^d%c&i>Qk&#18@+<luEdiSvZAe=pn}$mA
zj-rj7Md2da7>*E#;@C%!h$FzjMA4=s3<r@xle$p6y~L`xpni3kKy+du85$#t#9CT1
z)k+#s`0E&lC?pg1_k0As3+*nUSi<BqD!K^iPf$2H4h9nnWb`o711he?KBYva!2-S5
zq>vV)(7?ms&j;CfxNd1>DsWhfW$~ycGoUs>)SK*tJ5+j*wbzxo;_Z?Tv3MRzHHEHB
z1(awyV6nzFEZR}b24{g&$g?g$<_ojIT<C?k*Lpp@-Z%z}=f=BZr7RkppE_OX1~BxW
zW*xwyb6s|?Yo(fvgRt<aU@TRGccn^%ju*a?{kr%y$(@a6-hD#C>XpB2YW=q|vG_0b
zb<b~>wq^9XQYXMxT_W(;Z$d+i1^7!9?q?({JS_Oys=BVdH(q$(eStgp-qLIiUvAi{
zPDDD$^I!nbR{!qN{Rf|LzZJ@KVK4qF=_S*d80)UG3vurVr!UCe8U>4i1AXCPov-pc
zHX0ZG*xy0!p2M?L<(+Ex2A<Wq>ichzyP{Ph@(BY|SKSATz210;x4$$-!dyXcc5MoH
zPdyEq8xvqnpA>9uo1sUiWehZYg!}^8FeNGU@bOA=+yqKg16$T>LYH#2+%iNZ_Y_yf
zEeGd%{arfm`dJ>f;TH^^-;~KXV4HF~H<@{eU-JyCX;gZ;n$Jrg;z}BL)#{e)1<RK>
z?6u2J;sv1-k#KP8@=|sdN;+PKpZzfqUj9=ebZ?We)1;A<S1fnfL3eJDUBUA9CtF%p
zS<<p}MqQRwYcpCiwFXn3MQhBn<l&FemXVp6nVvOEzq+Ne(xB5DYBIDHdSjK=kZ!8f
zn$k1Uv^6GEmC0zRtSmQXAh*oVe65+*AxJpesS!&txQ9YmvAm{!>D=<#Who66?wcX3
zM4&P_|2${Hi*!U{`s{dzPqN*%^7iS$<FNTG+6VSuBo3&!OT%iwye0GhfS+RlY=-M_
zhw}Uf;kA41&ssF+rbJ#Eyt>boY7X?#0KYymKTt8u7HAIb0OuPM9tfplTgQ9B4Ha=u
z<}I_Ybkx`Uv{F1M)vc4iRdt&USUqoF?qb5zQSTpz>Nh7RkidyQ+;CRQt>EljHQri!
zr^N)_DH=!_kh(vUvhcu#-SmEN@SI))U(8j5Q=bTyA~jRO+N;O$g``Ka%l)~OZG$*{
zl;_wd7IvEhhu03}ez&CqF5RW8R~~r%a`)UL`;KpaRS~i9-NdKvaO9FDwJYq^?p~g$
z;mnpm*!#xcAHaU$#EoN6S7g~0!(3@zkL61<y9Wxu`(fv3>vz8*V}F2@f6ey|4eNT$
zyUo`aoEY%>r}3;CjAg70)_$4=iSty@@I?q1da59#M-C-@QT{HT69X4VYxa<zyWP%a
z{$W44U_STJSRJ*|WHMG8jMdr-qp4hL(4`x+6`7gU+VqU{Dr2R-rm8Zn`g`Q4Wq#L<
zUd%)eCf2xq$KjZ*4Vn60N9?wf7tzsyjt_)?90?!c<nG_OOnEb#zRtLB_cDHmGSbV4
zUIo3&H(aSB#{|~Ki<jw>jn6IGQzT4_v;?OP9w^WEIRm#PkR1bajMr@r!cW28{&nI-
zJ>h9P)54g;lY5OZm#)H7bt(IsFG)P4^%-UK<kBY}=#MU#B)+Tl)hj3<=cL)o97~qa
zKR%eO?l3viLs#Ey_htoCx|MR)Nk3`szl~#)T{oPr=q}}z)p5f9gr*JolJ?K1PTt<+
zO3id%2xXchkqUMxz<o57&19Xx4(}X25(RUraya<BGnD*}!KcUB5-x%H&0^H2Zo>b+
z7T_CD$vL=sjN$BD6PL#|a$s(A!F+uRIQs-h;FWMzmmGU%^haFW9w3e$`xS_>-&%_O
kFyhkbGpt!Utu-s{K}TFaTx5*z?jcI};UeG1MUKw>9~C{8>;M1&

diff --git a/Gästeliste/GästeDataSet.Designer.vb b/Gästeliste/GästeDataSet.Designer.vb
index 1a58ccb..cd7f932 100644
--- a/Gästeliste/GästeDataSet.Designer.vb
+++ b/Gästeliste/GästeDataSet.Designer.vb
@@ -27,6 +27,8 @@ Partial Public Class GästeDataSet
     
     Private tableGäste As GästeDataTable
     
+    Private tableLänder As LänderDataTable
+    
     Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -59,6 +61,9 @@ Partial Public Class GästeDataSet
             If (Not (ds.Tables("Gäste")) Is Nothing) Then
                 MyBase.Tables.Add(New GästeDataTable(ds.Tables("Gäste")))
             End If
+            If (Not (ds.Tables("Länder")) Is Nothing) Then
+                MyBase.Tables.Add(New LänderDataTable(ds.Tables("Länder")))
+            End If
             Me.DataSetName = ds.DataSetName
             Me.Prefix = ds.Prefix
             Me.Namespace = ds.Namespace
@@ -86,6 +91,16 @@ Partial Public Class GästeDataSet
         End Get
     End Property
     
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _
+     Global.System.ComponentModel.Browsable(false),  _
+     Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
+    Public ReadOnly Property Länder() As LänderDataTable
+        Get
+            Return Me.tableLänder
+        End Get
+    End Property
+    
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _
      Global.System.ComponentModel.BrowsableAttribute(true),  _
@@ -156,6 +171,9 @@ Partial Public Class GästeDataSet
             If (Not (ds.Tables("Gäste")) Is Nothing) Then
                 MyBase.Tables.Add(New GästeDataTable(ds.Tables("Gäste")))
             End If
+            If (Not (ds.Tables("Länder")) Is Nothing) Then
+                MyBase.Tables.Add(New LänderDataTable(ds.Tables("Länder")))
+            End If
             Me.DataSetName = ds.DataSetName
             Me.Prefix = ds.Prefix
             Me.Namespace = ds.Namespace
@@ -194,6 +212,12 @@ Partial Public Class GästeDataSet
                 Me.tableGäste.InitVars
             End If
         End If
+        Me.tableLänder = CType(MyBase.Tables("Länder"),LänderDataTable)
+        If (initTable = true) Then
+            If (Not (Me.tableLänder) Is Nothing) Then
+                Me.tableLänder.InitVars
+            End If
+        End If
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -206,6 +230,8 @@ Partial Public Class GästeDataSet
         Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
         Me.tableGäste = New GästeDataTable()
         MyBase.Tables.Add(Me.tableGäste)
+        Me.tableLänder = New LänderDataTable()
+        MyBase.Tables.Add(Me.tableLänder)
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -214,6 +240,12 @@ Partial Public Class GästeDataSet
         Return false
     End Function
     
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+    Private Function ShouldSerializeLänder() As Boolean
+        Return false
+    End Function
+    
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
     Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
@@ -275,6 +307,9 @@ Partial Public Class GästeDataSet
     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
     Public Delegate Sub GästeRowChangeEventHandler(ByVal sender As Object, ByVal e As GästeRowChangeEvent)
     
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+    Public Delegate Sub LänderRowChangeEventHandler(ByVal sender As Object, ByVal e As LänderRowChangeEvent)
+    
     '''<summary>
     '''Represents the strongly named DataTable class.
     '''</summary>
@@ -695,6 +730,258 @@ Partial Public Class GästeDataSet
         End Function
     End Class
     
+    '''<summary>
+    '''Represents the strongly named DataTable class.
+    '''</summary>
+    <Global.System.Serializable(),  _
+     Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
+    Partial Public Class LänderDataTable
+        Inherits Global.System.Data.TypedTableBase(Of LänderRow)
+        
+        Private columnLand As Global.System.Data.DataColumn
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Sub New()
+            MyBase.New
+            Me.TableName = "Länder"
+            Me.BeginInit
+            Me.InitClass
+            Me.EndInit
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Friend Sub New(ByVal table As Global.System.Data.DataTable)
+            MyBase.New
+            Me.TableName = table.TableName
+            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
+                Me.CaseSensitive = table.CaseSensitive
+            End If
+            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
+                Me.Locale = table.Locale
+            End If
+            If (table.Namespace <> table.DataSet.Namespace) Then
+                Me.Namespace = table.Namespace
+            End If
+            Me.Prefix = table.Prefix
+            Me.MinimumCapacity = table.MinimumCapacity
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
+            MyBase.New(info, context)
+            Me.InitVars
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public ReadOnly Property LandColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnLand
+            End Get
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _
+         Global.System.ComponentModel.Browsable(false)>  _
+        Public ReadOnly Property Count() As Integer
+            Get
+                Return Me.Rows.Count
+            End Get
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Default ReadOnly Property Item(ByVal index As Integer) As LänderRow
+            Get
+                Return CType(Me.Rows(index),LänderRow)
+            End Get
+        End Property
+        
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Event LänderRowChanging As LänderRowChangeEventHandler
+        
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Event LänderRowChanged As LänderRowChangeEventHandler
+        
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Event LänderRowDeleting As LänderRowChangeEventHandler
+        
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Event LänderRowDeleted As LänderRowChangeEventHandler
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Overloads Sub AddLänderRow(ByVal row As LänderRow)
+            Me.Rows.Add(row)
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Overloads Function AddLänderRow(ByVal Land As String) As LänderRow
+            Dim rowLänderRow As LänderRow = CType(Me.NewRow,LänderRow)
+            Dim columnValuesArray() As Object = New Object() {Land}
+            rowLänderRow.ItemArray = columnValuesArray
+            Me.Rows.Add(rowLänderRow)
+            Return rowLänderRow
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Overrides Function Clone() As Global.System.Data.DataTable
+            Dim cln As LänderDataTable = CType(MyBase.Clone,LänderDataTable)
+            cln.InitVars
+            Return cln
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
+            Return New LänderDataTable()
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Friend Sub InitVars()
+            Me.columnLand = MyBase.Columns("Land")
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Private Sub InitClass()
+            Me.columnLand = New Global.System.Data.DataColumn("Land", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnLand)
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Function NewLänderRow() As LänderRow
+            Return CType(Me.NewRow,LänderRow)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
+            Return New LänderRow(builder)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Protected Overrides Function GetRowType() As Global.System.Type
+            Return GetType(LänderRow)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+            MyBase.OnRowChanged(e)
+            If (Not (Me.LänderRowChangedEvent) Is Nothing) Then
+                RaiseEvent LänderRowChanged(Me, New LänderRowChangeEvent(CType(e.Row,LänderRow), e.Action))
+            End If
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+            MyBase.OnRowChanging(e)
+            If (Not (Me.LänderRowChangingEvent) Is Nothing) Then
+                RaiseEvent LänderRowChanging(Me, New LänderRowChangeEvent(CType(e.Row,LänderRow), e.Action))
+            End If
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+            MyBase.OnRowDeleted(e)
+            If (Not (Me.LänderRowDeletedEvent) Is Nothing) Then
+                RaiseEvent LänderRowDeleted(Me, New LänderRowChangeEvent(CType(e.Row,LänderRow), e.Action))
+            End If
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+            MyBase.OnRowDeleting(e)
+            If (Not (Me.LänderRowDeletingEvent) Is Nothing) Then
+                RaiseEvent LänderRowDeleting(Me, New LänderRowChangeEvent(CType(e.Row,LänderRow), e.Action))
+            End If
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Sub RemoveLänderRow(ByVal row As LänderRow)
+            Me.Rows.Remove(row)
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
+            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
+            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
+            Dim ds As GästeDataSet = New GästeDataSet()
+            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
+            any1.MinOccurs = New Decimal(0)
+            any1.MaxOccurs = Decimal.MaxValue
+            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+            sequence.Items.Add(any1)
+            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
+            any2.MinOccurs = New Decimal(1)
+            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+            sequence.Items.Add(any2)
+            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+            attribute1.Name = "namespace"
+            attribute1.FixedValue = ds.Namespace
+            type.Attributes.Add(attribute1)
+            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+            attribute2.Name = "tableTypeName"
+            attribute2.FixedValue = "LänderDataTable"
+            type.Attributes.Add(attribute2)
+            type.Particle = sequence
+            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
+            If xs.Contains(dsSchema.TargetNamespace) Then
+                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+                Try 
+                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
+                    dsSchema.Write(s1)
+                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
+                    Do While schemas.MoveNext
+                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
+                        s2.SetLength(0)
+                        schema.Write(s2)
+                        If (s1.Length = s2.Length) Then
+                            s1.Position = 0
+                            s2.Position = 0
+                            
+                            Do While ((s1.Position <> s1.Length)  _
+                                        AndAlso (s1.ReadByte = s2.ReadByte))
+                                
+                                
+                            Loop
+                            If (s1.Position = s1.Length) Then
+                                Return type
+                            End If
+                        End If
+                        
+                    Loop
+                Finally
+                    If (Not (s1) Is Nothing) Then
+                        s1.Close
+                    End If
+                    If (Not (s2) Is Nothing) Then
+                        s2.Close
+                    End If
+                End Try
+            End If
+            xs.Add(dsSchema)
+            Return type
+        End Function
+    End Class
+    
     '''<summary>
     '''Represents strongly named DataRow class.
     '''</summary>
@@ -891,6 +1178,49 @@ Partial Public Class GästeDataSet
         End Sub
     End Class
     
+    '''<summary>
+    '''Represents strongly named DataRow class.
+    '''</summary>
+    Partial Public Class LänderRow
+        Inherits Global.System.Data.DataRow
+        
+        Private tableLänder As LänderDataTable
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
+            MyBase.New(rb)
+            Me.tableLänder = CType(Me.Table,LänderDataTable)
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Property Land() As String
+            Get
+                If Me.IsLandNull Then
+                    Return String.Empty
+                Else
+                    Return CType(Me(Me.tableLänder.LandColumn),String)
+                End If
+            End Get
+            Set
+                Me(Me.tableLänder.LandColumn) = value
+            End Set
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Function IsLandNull() As Boolean
+            Return Me.IsNull(Me.tableLänder.LandColumn)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Sub SetLandNull()
+            Me(Me.tableLänder.LandColumn) = Global.System.Convert.DBNull
+        End Sub
+    End Class
+    
     '''<summary>
     '''Row event argument class
     '''</summary>
@@ -926,4 +1256,40 @@ Partial Public Class GästeDataSet
             End Get
         End Property
     End Class
+    
+    '''<summary>
+    '''Row event argument class
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+    Public Class LänderRowChangeEvent
+        Inherits Global.System.EventArgs
+        
+        Private eventRow As LänderRow
+        
+        Private eventAction As Global.System.Data.DataRowAction
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Sub New(ByVal row As LänderRow, ByVal action As Global.System.Data.DataRowAction)
+            MyBase.New
+            Me.eventRow = row
+            Me.eventAction = action
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public ReadOnly Property Row() As LänderRow
+            Get
+                Return Me.eventRow
+            End Get
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public ReadOnly Property Action() As Global.System.Data.DataRowAction
+            Get
+                Return Me.eventAction
+            End Get
+        End Property
+    End Class
 End Class
diff --git a/Gästeliste/GästeDataSet.vb b/Gästeliste/GästeDataSet.vb
index f410a09..8eef3b0 100644
--- a/Gästeliste/GästeDataSet.vb
+++ b/Gästeliste/GästeDataSet.vb
@@ -4,8 +4,6 @@
             If (e.Column.ColumnName = Me.IDColumn.ColumnName) Then
                 'Benutzercode hier einfügen
             End If
-
         End Sub
-
     End Class
 End Class
diff --git a/Gästeliste/GästeDataSet.xsd b/Gästeliste/GästeDataSet.xsd
index a6db2d3..9030dcf 100644
--- a/Gästeliste/GästeDataSet.xsd
+++ b/Gästeliste/GästeDataSet.xsd
@@ -36,6 +36,13 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
+        <xs:element name="Länder" msprop:Generator_TableClassName="LänderDataTable" msprop:Generator_TableVarName="tableLänder" msprop:Generator_TablePropName="Länder" msprop:Generator_RowDeletingName="LänderRowDeleting" msprop:Generator_RowChangingName="LänderRowChanging" msprop:Generator_RowEvHandlerName="LänderRowChangeEventHandler" msprop:Generator_RowDeletedName="LänderRowDeleted" msprop:Generator_UserTableName="Länder" msprop:Generator_RowChangedName="LänderRowChanged" msprop:Generator_RowEvArgName="LänderRowChangeEvent" msprop:Generator_RowClassName="LänderRow">
+          <xs:complexType>
+            <xs:sequence>
+              <xs:element name="Land" msprop:Generator_ColumnVarNameInTable="columnLand" msprop:Generator_ColumnPropNameInRow="Land" msprop:nullValue="_empty" msprop:Generator_ColumnPropNameInTable="LandColumn" msprop:Generator_UserColumnName="Land" type="xs:string" minOccurs="0" />
+            </xs:sequence>
+          </xs:complexType>
+        </xs:element>
       </xs:choice>
     </xs:complexType>
     <xs:unique name="Constraint1" msdata:PrimaryKey="true">
diff --git a/Gästeliste/GästeDataSet.xss b/Gästeliste/GästeDataSet.xss
index 9cfe2c1..33df4cf 100644
--- a/Gästeliste/GästeDataSet.xss
+++ b/Gästeliste/GästeDataSet.xss
@@ -6,7 +6,8 @@
 </autogenerated>-->
 <DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="0" ViewPortY="92" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
   <Shapes>
-    <Shape ID="DesignTable:Gäste" ZOrder="1" X="182" Y="153" Height="257" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="253" />
+    <Shape ID="DesignTable:Gäste" ZOrder="2" X="182" Y="153" Height="257" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="253" />
+    <Shape ID="DesignTable:Länder" ZOrder="1" X="568" Y="278" Height="48" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="44" />
   </Shapes>
   <Connectors />
 </DiagramLayout>
\ No newline at end of file
diff --git a/Gästeliste/Gästeliste.vbproj b/Gästeliste/Gästeliste.vbproj
index 7fb2083..6737021 100644
--- a/Gästeliste/Gästeliste.vbproj
+++ b/Gästeliste/Gästeliste.vbproj
@@ -26,13 +26,13 @@
     <MapFileExtensions>false</MapFileExtensions>
     <InstallUrl>http://tools.dominicreich.com/Gaesteliste/</InstallUrl>
     <UpdateUrl>http://tools.dominicreich.com/Gaesteliste/</UpdateUrl>
-    <SupportUrl>http://tmsn.at/%3ftools&amp;gaesteliste</SupportUrl>
+    <SupportUrl>http://klamm.io</SupportUrl>
     <ErrorReportUrl>https://github.com/freefallcid/Gaesteliste/issues</ErrorReportUrl>
     <ProductName>Gästeliste</ProductName>
     <PublisherName>Dominic Reich</PublisherName>
     <MinimumRequiredVersion>1.0.0.0</MinimumRequiredVersion>
     <OpenBrowserOnPublish>false</OpenBrowserOnPublish>
-    <ApplicationRevision>21</ApplicationRevision>
+    <ApplicationRevision>22</ApplicationRevision>
     <ApplicationVersion>1.0.1.%2a</ApplicationVersion>
     <UseApplicationTrust>true</UseApplicationTrust>
     <CreateDesktopShortcut>true</CreateDesktopShortcut>
diff --git a/Gästeliste/Gästeliste.vbproj.user b/Gästeliste/Gästeliste.vbproj.user
index 4760691..ba260d5 100644
--- a/Gästeliste/Gästeliste.vbproj.user
+++ b/Gästeliste/Gästeliste.vbproj.user
@@ -3,7 +3,7 @@
   <PropertyGroup>
     <PublishUrlHistory>Z:\Gaesteliste\|publish\</PublishUrlHistory>
     <InstallUrlHistory>http://tools.dominicreich.com/Gaesteliste/</InstallUrlHistory>
-    <SupportUrlHistory>http://tmsn.at/%3ftools&amp;gaesteliste</SupportUrlHistory>
+    <SupportUrlHistory>http://klamm.io|http://tmsn.at/%3ftools&amp;gaesteliste</SupportUrlHistory>
     <UpdateUrlHistory>http://tools.dominicreich.com/Gaesteliste/</UpdateUrlHistory>
     <BootstrapperUrlHistory />
     <ErrorReportUrlHistory>https://github.com/freefallcid/Gaesteliste/issues</ErrorReportUrlHistory>
diff --git a/Gästeliste/frmAbout.resx b/Gästeliste/frmAbout.resx
index 00f6f1b..ee96ea4 100644
--- a/Gästeliste/frmAbout.resx
+++ b/Gästeliste/frmAbout.resx
@@ -608,23 +608,23 @@ Passen Sie die Assemblyinformationen der Anwendung im Anwendungsbereich des Proj
   </data>
   <data name="lnkIcons.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAANrSURBVDhPdZB7TJNXGIdPJskgklJDIBCoTgQvEIgoQ9DB
-        7MR6A29QRoQ/jOjCsmg0drB0BGIMkzKBAkWLFAGVVOVi1FUrN6sbw7LSQlu5tWWtWOxGafvBSGai+flZ
-        vyzLkj3Jm5w3531O3vMj/+bkg6mPz/Q6w3546txSqXYfqvjVfVqioWovD3vutBiXhmU6l/mYsC6BGf8A
-        h8OJ2crliXmZecqy7mljzRDlqhuafyPVuHFF60GjjsLVkQU0jy5ANrqERxrziFgkimJ0QlgsVvaWTxOW
-        tqem4Du5GtXqRfz4ixPlP89BMjgH2W9OSNXzEKvdEA95oHrxGk1S6deMToiPj8+22NhY02dJiThe1Ymy
-        gb9Q2uPAYzOFPvMC7o5T6DEtQEX3ooF5XKc3KS4u/pbRvayOiIhQJSfE47CgGoIeD/pNFG6OuPC9chZ9
-        U2606+bQrndBOUnh4iAFRa9KxefzlzE+YYWGhl5P3BSHlJxTOHHnDxjsi/iqw4anZjcqnjignVnEhccO
-        PJzwoKTfhc7eZ5agoCB/xieEzWaXbIqLwUbuQeS1WTFmp3Ds5jQ0VjeO3LBAPe1CscKGWyNOHO16BelD
-        3fw+HnczoxPi6+ubGxu9HtHxSeDVaGnRg/IHFoj7Z/CT3oGuUfoLww5802lFVpsNjXSoVaKyM4zuDTIl
-        KirybWTkWnx+Ton8WzPQWf5EhWIKZztMKJBPonnQjny5Bdk3rCi6/wJCobCU0b1EcDjhrlVhIUg+1YTd
-        MisyZRO4OjiL1md2NA7YcVxuRlaLCfxWM/Jv29Bxr1uTlbU/mvGJPx2KISx4BeJySrBXZsPOOiO4tUak
-        ScbAuzSO9IZxHJJN4nDTFDJbf4e0vfvl3i9SuYxPSEBAgDIkkIU12/Owo96MHTV67Kw1gEc/xJM8x+5L
-        Y9hzeQJ7Giax/9osog8K6kl4uB+je4OUBrL9Ebw+GUkXjdhaacA2ulKr9EgT65EuGUVOgx4FLQYU0mGu
-        SSsQMuoH6CALA1ew8cmGeOTUqXG6bQylt59D1GVAdacWlfIBnG9U/F1Y0fYyT1CtZYWv28Wo/3CAn52N
-        knPn3xaVt7w6USTWZeSeVSSlfVm/MiZF4B8SmUl8WIn03Cq6lnuN/8Dy8/PLoDdJpc+r3/d0ffT+4v8h
-        5B0QifP0zn03OAAAAABJRU5ErkJggg==
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wwAADsMBx2+oZAAAA2tJREFUOE91kHtMk1cYh08mySCSUkMgEKhOBC8QiChD0MHsxHoDb1BGhD+M6MKy
+        aDR2sHQEYgyTMoECRYsUAZVU5WLUVSs3qxvDstJCW7m1Za1Y7EZp+8FIZqL5+Vm/LMuSPcmbnDfnfU7e
+        8yP/5uSDqY/P9DrDfnjq3FKpdh+q+NV9WqKhai8Pe+60GJeGZTqX+ZiwLoEZ/wCHw4nZyuWJeZl5yrLu
+        aWPNEOWqG5p/I9W4cUXrQaOOwtWRBTSPLkA2uoRHGvOIWCSKYnRCWCxW9pZPE5a2p6bgO7ka1epF/PiL
+        E+U/z0EyOAfZb05I1fMQq90QD3mgevEaTVLp14xOiI+Pz7bY2FjTZ0mJOF7VibKBv1Da48BjM4U+8wLu
+        jlPoMS1ARfeigXlcpzcpLi7+ltG9rI6IiFAlJ8TjsKAagh4P+k0Ubo648L1yFn1TbrTr5tCud0E5SeHi
+        IAVFr0rF5/OXMT5hhYaGXk/cFIeUnFM4cecPGOyL+KrDhqdmNyqeOKCdWcSFxw48nPCgpN+Fzt5nlqCg
+        IH/GJ4TNZpdsiovBRu5B5LVZMWancOzmNDRWN47csEA97UKxwoZbI04c7XoF6UPd/D4edzOjE+Lr65sb
+        G70e0fFJ4NVoadGD8gcWiPtn8JPega5R+gvDDnzTaUVWmw2NdKhVorIzjO4NMiUqKvJtZORafH5Oifxb
+        M9BZ/kSFYgpnO0wokE+iedCOfLkF2TesKLr/AkKhsJTRvURwOOGuVWEhSD7VhN0yKzJlE7g6OIvWZ3Y0
+        DthxXG5GVosJ/FYz8m/b0HGvW5OVtT+a8Yk/HYohLHgF4nJKsFdmw846I7i1RqRJxsC7NI70hnEckk3i
+        cNMUMlt/h7S9++XeL1K5jE9IQECAMiSQhTXb87Cj3owdNXrsrDWARz/EkzzH7ktj2HN5AnsaJrH/2iyi
+        DwrqSXi4H6N7g5QGsv0RvD4ZSReN2FppwDa6Uqv0SBPrkS4ZRU6DHgUtBhTSYa5JKxAy6gfoIAsDV7Dx
+        yYZ45NSpcbptDKW3n0PUZUB1pxaV8gGcb1T8XVjR9jJPUK1lha/bxaj/cICfnY2Sc+ffFpW3vDpRJNZl
+        5J5VJKV9Wb8yJkXgHxKZSXxYifTcKrqWe43/wPLz88ugN0mlz6vf93R99P7i/yHkHRCJ8/TOfTc4AAAA
+        AElFTkSuQmCC
 </value>
   </data>
 </root>
\ No newline at end of file
diff --git a/Gästeliste/frmAbout.vb b/Gästeliste/frmAbout.vb
index 01fe0a9..ee35c41 100644
--- a/Gästeliste/frmAbout.vb
+++ b/Gästeliste/frmAbout.vb
@@ -22,7 +22,7 @@
     End Sub
 
     Private Sub lnkWebsite_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lnkWebsite.LinkClicked
-        Process.Start("http://tmsn.at/?tools&gaesteliste")
+        Process.Start("http://klamm.io")
     End Sub
 
     Private Sub lnkIcons_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lnkIcons.LinkClicked
diff --git a/Gästeliste/frmMain.Designer.vb b/Gästeliste/frmMain.Designer.vb
index ec24014..55c24c9 100644
--- a/Gästeliste/frmMain.Designer.vb
+++ b/Gästeliste/frmMain.Designer.vb
@@ -232,27 +232,27 @@ Partial Class frmMain
         '
         Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem"
         Me.InfoToolStripMenuItem.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
+        Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
         Me.InfoToolStripMenuItem.Text = "Info"
         '
         'OnlineHilfeToolStripMenuItem
         '
         Me.OnlineHilfeToolStripMenuItem.Name = "OnlineHilfeToolStripMenuItem"
         Me.OnlineHilfeToolStripMenuItem.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.OnlineHilfeToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
-        Me.OnlineHilfeToolStripMenuItem.Text = "Online-Hilfe"
+        Me.OnlineHilfeToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
+        Me.OnlineHilfeToolStripMenuItem.Text = "Webseite anzeigen"
         '
         'ToolStripMenuItem1
         '
         Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
         Me.ToolStripMenuItem1.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(149, 6)
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(169, 6)
         '
         'UpdateToolStripMenuItem
         '
         Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
         Me.UpdateToolStripMenuItem.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
+        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
         Me.UpdateToolStripMenuItem.Text = "Update"
         '
         'StatusStrip1
diff --git a/Gästeliste/frmMain.resx b/Gästeliste/frmMain.resx
index 42bbb55..b77fba3 100644
--- a/Gästeliste/frmMain.resx
+++ b/Gästeliste/frmMain.resx
@@ -120,6 +120,12 @@
   <metadata name="GästeBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>142, 17</value>
   </metadata>
+  <metadata name="GästeBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>142, 17</value>
+  </metadata>
+  <metadata name="GästeDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
   <metadata name="GästeDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
diff --git a/Gästeliste/frmMain.vb b/Gästeliste/frmMain.vb
index 680e446..a261448 100644
--- a/Gästeliste/frmMain.vb
+++ b/Gästeliste/frmMain.vb
@@ -79,7 +79,7 @@ Public Class frmMain
     End Sub
 
     Private Sub OnlineHilfeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OnlineHilfeToolStripMenuItem.Click
-        Process.Start("http://tmsn.at/?tools&gaesteliste&hilfe")
+        Process.Start("http://klamm.io")
     End Sub
 
     Private Sub UpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UpdateToolStripMenuItem.Click
diff --git a/Gästeliste/frmPerson.designer.vb b/Gästeliste/frmPerson.designer.vb
index 2bc7d2d..0cc14f6 100644
--- a/Gästeliste/frmPerson.designer.vb
+++ b/Gästeliste/frmPerson.designer.vb
@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmPerson
     Inherits System.Windows.Forms.Form
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmPerson
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
@@ -50,9 +50,9 @@ Partial Class frmPerson
         Me.txtAnmerkung = New System.Windows.Forms.TextBox()
         Me.chkStammgast = New System.Windows.Forms.CheckBox()
         Me.chkBlacklist = New System.Windows.Forms.CheckBox()
+        Me.cboLand = New System.Windows.Forms.ComboBox()
         Me.GästeBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.GästeDataSet = New Gästeliste.GästeDataSet()
-        Me.cboLand = New System.Windows.Forms.ComboBox()
         Me.TableLayoutPanel1.SuspendLayout()
         Me.TableLayoutPanel2.SuspendLayout()
         CType(Me.GästeBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -343,6 +343,16 @@ Partial Class frmPerson
         Me.chkBlacklist.TabIndex = 2
         Me.chkBlacklist.UseVisualStyleBackColor = True
         '
+        'cboLand
+        '
+        Me.cboLand.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cboLand.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.cboLand.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboLand.Location = New System.Drawing.Point(103, 177)
+        Me.cboLand.Name = "cboLand"
+        Me.cboLand.Size = New System.Drawing.Size(234, 21)
+        Me.cboLand.TabIndex = 3
+        '
         'GästeBindingSource
         '
         Me.GästeBindingSource.DataMember = "Gäste"
@@ -353,20 +363,6 @@ Partial Class frmPerson
         Me.GästeDataSet.DataSetName = "GästeDataSet"
         Me.GästeDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
         '
-        'cboLand
-        '
-        Me.cboLand.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
-        Me.cboLand.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
-        Me.cboLand.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.GästeBindingSource, "Land", True))
-        Me.cboLand.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.cboLand.FormattingEnabled = True
-        Me.cboLand.Items.AddRange(New Object() {"Deutschland", "Österreich", "Schweiz", "Niederlande"})
-        Me.cboLand.Location = New System.Drawing.Point(103, 177)
-        Me.cboLand.Name = "cboLand"
-        Me.cboLand.Size = New System.Drawing.Size(234, 21)
-        Me.cboLand.TabIndex = 3
-        Me.cboLand.Text = "Deutschland"
-        '
         'frmPerson
         '
         Me.AcceptButton = Me.OK_Button
diff --git a/Gästeliste/frmPerson.vb b/Gästeliste/frmPerson.vb
index fce5e03..87930ca 100644
--- a/Gästeliste/frmPerson.vb
+++ b/Gästeliste/frmPerson.vb
@@ -11,4 +11,39 @@ Public Class frmPerson
         Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
         Me.Close()
     End Sub
+
+    Private Sub frmPerson_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        If Me.Tag = "add" Then
+            Me.Text = "Gast hinzufügen"
+        ElseIf Me.Tag = "edit" Then
+            Me.Text = "Gast bearbeiten"
+        End If
+        'Dim dt As DataTable = GästeDataSet.Tables("Länder")
+        'Dim dr As DataRow = dt.NewRow()
+
+        'With dr
+        '.Item("Land") = 'unfinished
+        'End With
+        'cboLand.Items.Add("Neues Land eintragen")
+    End Sub
+
+    Private Sub cboLand_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLand.SelectedIndexChanged
+        If cboLand.Text = "Neues Land eintragen" Then
+            Dim NeuesLand As String = InputBox("Name des neuen Landes:", "Neues Land eintragen")
+            If NeuesLand <> "" Then
+                ' eintragen
+                If Not cboLand.Items.Contains(NeuesLand) Then
+                    Dim Anzahl As Integer = cboLand.Items.Count
+                    cboLand.Items.Insert(Anzahl - 1, NeuesLand.ToString)
+                    cboLand.Text = NeuesLand.ToString
+                Else
+                    MsgBox("Tut mir leid, das Land ist doch schon in der Liste!")
+                    Exit Sub
+                End If
+            Else
+                ' abbruch
+                Exit Sub
+            End If
+        End If
+    End Sub
 End Class