Standard Jet DBnb` Ugr@?~1y0̝cßFNvj7՜6('`{6߱eC?>3y[b$|*J|\z~f_Љ$g'DeFx -bT4.0dvw YS  Y   Y Y  Y Y  Y  Y  Y   Y  Y  Y  Y  Y 2Y  Y   Y  Y ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeYYIdParentIdName        OY@cessVeSY Y Y  Y 2ACMFInheritableObjectIdSID  AtYObjectId Name1 Name2ObjectId Ordernzf edY"ObjectIdAttribute YcessVeSY  Y Y Y  Y  Y Y  Y AttributeExpressionFlagLvExtra Name1 Name2ObjectId Ordernzf edY"ObjectIdAttribute  YYYszObject$szReferencedObjectszRelationship -YcessVeSY Y Y  Y  Y  Y  Y  Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship   YYYszObject$szReferencedObjectszRelationship @@@@@@Yv1b N  : k & W  C t/          !#*.&'(,, @@@@I  @@ `QmJkObkdobO8kdobO:OJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^QkiQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^mJL^Qk`kvkJMMQkkdL[QMmk`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkmQkmmJL^QJMMQkk^Jvdom`kvkOLko``JivYbSd okQiOQSYbQO  okQiOQSYbQO okQiOQSYbQO *C*D*E.@.A.BXYZ     ,,,      Z  @ @ @          @ @ @ @ @ @ @ @ !"#$%&'()*+,-./0123 4 5 6 7 8 9 : ; <  =>?          *!<@!<@__SemaA<@A<,_n<@ k<@soundex)8,_n<@<> k<@soundex)J@<<<0000000. @L<@dx'<@Dist_all_last)@HHH<<<<<<<: @/<@/<@MSysIMEXColumns)@@@@@@@@@@> u<@<@MSysIMEXSpecs)<<<<<<<<<<: B<@B<@learndist)44444444442 [sL<@[sL<@sound2).........., f}<@f}<@compare)0000000000.  w,v<@w,v<@distance)22222222220 ]k;@"}<@test)2@666*******( @ |;@|;@sound),,,,,,,,,,*  Fm0 19@Fm0 19@Meta)**********( * w$09@K$09@ilpay),,,,,,,,,,* . /9@%,;@ildebtor)@>>>22222220 @  %/9@ PV=@AccessLayout)4MR2KeepLocal T@%0zz:::::::8 @w.9@w.9@DataAccessPages)@@@@@@@@@@> w.9@w.9@SysRel).........., w.9@w.9@Modules)0000000000. w.9@w.9@Scripts)0000000000. w.9@w.9@Reports)0000000000. w.9@w.9@Forms),,,,,,,,,,*  w.9@w.9@UserDefined)A@DDD88888886 @ SO.9@SO.9@SummaryInfo)@DDD88888886 @SO.9@SO.9@MSysAccessObjects)DDDDDDDDDDB  .9@ .9@MSysRelationships(DDDDDDDDDDB  .9@ .9@MSysQueries(88888888886  .9@ .9@MSysACEs(22222222220  .9@ .9@MSysObjects(88888888886  .9@ .9@MSysDb)\@:::......., @ .9@ .9@Relationships(<<<<<<<<<<:  .9@ .9@Databases(44444444442  .9@ .9@Tables(..........,  hDisplayControl$UnicodeCompressionGUID    U+ Ca@GWԢ;Xk;@test Ϧ@d2L+ Ca@GWԢ;name4I.+ Ca@GWԢ;meta BU hNHqr4Zname       m Zmeta       m MR2ValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControl$UnicodeCompressionGUID    U+ Ca@GWԢ;Xk;@test Ϧ@d2L+ Ca@GWԢ;name4I.+ Ca@GWԢ;metaMR2GUID$ ޝo@I?1ʜ,name CHw0l`MR2GUID$ ޝo@I?1ʜ,name CHw0l`2soundex -w=FRIMR2ValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControl$UnicodeCompressionDecimalPlacesh  J B U`X13I6 %,;@ildebtorMbN uy2c`X13I6 NAME3ߢ7DER`X13I6 STREETN~g$'XB ֓`X13I6 CITYHh3D'!`X13I6 STATE_~[Aw3`X13I6 ZIP$;`^F,9dl4`X13I6 DOBG:! Ff`X13I6 ORD_DATِc[E+/`X13I6 DEBT͵>GuD ΂n`X13I6 NUM_KIDSץ@GM>@__SemaphoreTable1BDDDDDDDD.SnL>@M>@~TMPCLP540441B|@9HHH<<<<<<<: @?y>@bћ>@testtableB@@@@44444442 @ w>@w>@sound2B..........,  2>@2>@sound1B..........,  @@metasdnB0000000000.  }Ȉ>@9N>@AccessLayoutB4MR2KeepLocal T@zz:::::::8 @1C2>@1C2>@DataAccessPagesB@@@@@@@@@@> 1C2>@1C2>@SysRelB.........., 1C2>@1C2>@ModulesB0000000000. 1C2>@1C2>@ScriptsB0000000000. 1C2>@1C2>@ReportsB0000000000. 1C2>@1C2>@FormsB,,,,,,,,,,*  2>@2>@UserDefinedBA@DDD88888886 @ 2>@2>@SummaryInfoBƎ@DDD88888886 @^0>@ 1>@MSysAccessObjectsBDDDDDDDDDDB 0>@0>@MSysRelationshipsCDDDDDDDDDDB 0>@0>@MSysQueriesC88888888886 0>@0>@MSysACEsC22222222220 0>@0>@MSysObjectsC88888888886 0>@0>@MSysDbB\@:::......., @0>@0>@RelationshipsC<<<<<<<<<<: 0>@0>@DatabasesC44444444442 0>@0>@TablesC.........., U{hUB/A S @ ,  |  B /   l Y 2 o\I"r_K88888888888888888888887C 7C 7@ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V7C .C .C .@ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V.C C @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp B  B  @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp  C  B  @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp  C  B  @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp  C C B @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp C C B @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp C C B @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp C C B @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp C C B @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp C C B @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp C C C C @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp B C @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp C @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp C C @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp C @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp T@ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp T@ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp C B B B C B C B B B B  Y<<<NY Y DataID<<YAOIndexOJmJLJkQkiQ^JmYdbkWYfkmJL^Qk`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkOL @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp C @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp C C @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp C @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp @ǤP:>t5՞v`j̝}ȍ,8` n;>ܙH`jV}|$ZHnxshwd2V>68s>mS&wp C B B B C B C B B B B v1 @ @ @     VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p (  )  +~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p  ( ( +~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p )  )  +~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p  (  )  +~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p  ( *( *+~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p *) .( .+~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p .) ( ) +~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p ( ( ) +~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p ( ( ) +~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p ( ( ) +~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p ( ( ) +~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p ( ( ) +~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p ( ( ( ( +~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p ) ( +~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p ( +~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p ( ( +~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p ( +~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p T+~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p T+~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p +~ee$\RG³&圗I)U68i1VG"a̪⢴Hsiyo,ҫ'R-b1q*eIw!v4.p >Z  @ @ @  ! " # $%&'()*+,   A_VBA_PROJECT.VBA(_PROJECTwmPROJECTG=_VBA_PROJECTRydir F0!P6P6ANGIEWGHQTXAHELXOMXCLELHSOIL:/- 6PropData@F 4CB0 2CB0 0CB0 1CB0 3CB0 5CB0E943C4F-B6B3-4012-91E6-5FBB517A9261}" Module=Meta Modulee=distance Module=compare Module=sound2 Name="me  e  'k( '  Debug.Print R Soundex = Mid$(R & "0000", 1, 4) 000000$ 'ioAttribute VB_Name = "sound2" Option CompaID="{BE943C4F-B6B3-4012-91E6-5FBB517A9261}" Module=Meta Moduledir*0!P6P6ANGIEWGHQTXAHELXOMXCLELHSOIL:.-`v7PropData@; 3CB0 1CB0 0CB0 2CB0 4CB0tiID="{BE943C4F-B6B3-4012-91E6-5FBK[d k f :0DDDDS@D hRR RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR@XRMSysAccountsxxxxK[ @ࡱ> uRoot Entry5+PropData Forms @bxL@bxLReports@bxL@bxL !"#$%&'()*+-./012345mnopqrstwxyz{|}~Root Entryp+PropData Forms @bxL@bxLReports@bxL@bxL !"#$%&'()*+-./012345mnopqrstwxyz{|}~Modules@bxL@bxLScripts@bxL@bxLVBA@bxLpCmdbars@bxL@bxLDataAccessPages @bxL@bxLDatabases @bxL c\0 @bxL c\Blob Modules@bxL@bxLScripts@bxL@bxLVBA@bxLICmdbarsK[v1 @@bxL@bxLCustomGroups @bxL@bxLDirDataVBAProject`aQ5AcessVBAData/0  !"#$%&'()+,-21A3456789;<=>?@CBDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoprstuvwxyz{|}~0  !"#$%&'()+,-21A345678:;<=>?@CDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkmnopqrstuvwxyz{|}~PropData UJAXNNILOQILSDVUQAYRJVGWGYID:S!310\H0\HPropData dir*01x1xPropData.DirData* 1 2 3 4 5 6sound1H0* pHd algorithms4@j = r r> J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\Syst em32\e2.tlb#OLE AutomatiLon`hA DODB>uADOBD.DE1D10 0CB0 1CB0VBA`aQ0\HPROJECTwmB/PROJECT_VBA_PROJECT9 ijMSysDbmetasdnsound1-86A1-4723-A901-BA98F6420CCF}" Name="algorithms" -86A1-4723-A901-BA98F6420CCF}" Mod LVAL)r1 ValidationRuleMR2ValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControl$UnicodeCompressionGUIDT    U=XHQ);&M>@Table1?XHQ);=XHQ);restname@XHQ);=XHQ);Field2AXHQ);=XHQ);name>XHQ);=XHQ);lastname BXHQ);Zname       m v Field2       m  EXHQ);zrestname       m  DXHQ);Ulastname    MR2ValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControl$UnicodeCompressionGUIDT    U=XHQ);&M>@Table1?XHQ);=XHQ);restname@XHQ);=XHQ);Field2AXHQ);=XHQ);name>XHQ);=XHQ);lastname BXHQ);Zname       m v Field2       m  EXHQ);zrestname       m  DXHQ);Ulastname     CXHQ);MR2ValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControl$UnicodeCompressionGUIDL    U?40@ݝ-xmaz>@testtableUJCKM}7?40@ݝ-xmanameȟjEP 03?40@ݝ-xmasoundសSY~L:b?40@ݝ-xmametal!Mޣ?40@ݝ-xmasound2 wr5Lrnrname       m  ; ;wB /f:t sound       m  dǙ# 7 T  _  ,  |  B /   l Y (w!PʾtesttableCreate query in Design viewsound2x3X^3ʾtesttableCreate query in Design viewsound2x3X^3K[{hUB/A S @ ,  |  B /   l Y  "s> J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\Syst em32\e2.tlb#OLE AutomatiLon`hA DODB>uADOBD.DE1D10 1CB0 0CB0 2CB0VBA`aQ5PROJECTwmDPROJECT_VBA_PROJECT:? ijMSysDbsound1metasdnsound2-86A1-4723-A901-BA98F6420CCF}" Name="algorithms" -86A1-4723-A901-BA98F6420CCF}" Module=metasdn Nam-86A1-4723-A901-BA98F6420CCF}" Module=metasdn ModID="{CE041BFF-86A1-4723-A901-BA98F6420CCF}" Module=metasdn Module=sound1 Module=sound2 Name="algorithms" HelpContextID="0" VersionCompatible32="393222000" CMG="1012E402E802E802E802E8" rU  SearchInSoughtCharactersaWord Characters_C:\WINDOWS\Syst em32\e2.K*mrU~~~~~~~~~~~~~~~~~E 2LحKB {l&  DPB="2022D417D517D517" GC="3032C427C527C5D8" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H0-8DAA006D2EA4D1DProgram Files\Co0mmonM\a do\ms21NMicrosoft ActiveX Data Objects 2.1 LibrXaryH metasdnGtasn UJAXNNILOQILSDVUQAYRJVGWGYID28AJAX"N@IL@CQS@EVUQ@YR@ VGTWYDBDH@1~x)B,*Z!B+B@ound1GoPun@,1D,DSRTOHDRMLZJGEGSTPPJFGVLXEAIC,DS#T@*H(RM@-"Z'GE@'STP@JF@VX9.0#0#C:\Program Files\Microsoft0000000 [Workspace] metasdn=88, 116, 766, 454, C sound1=66, 87, 744, 425, C sound2=22, 29, 700, 367, C Office\Office\MSACC9.OLB#Microsoft Access 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automati`0(`0nn0-0000000000metasdnmetasdnsound1sound1sound2sound2ROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#e\inp=outpQ$vowels{frontv varsondblexcppair_knxtltrtkiiDSRTOHDRMLZJGEGSTPPJFGVLXEAI:#K[ @ @ @ @ @ @ @,__SRP_3%__SRP_2__SRP_0 !__SRP_56__SRP_4A,CK,O,T,2M,2D,GIBMIOHMSQBBTDWL@NLRGVPVGKGC,G@B)I,M/QBU@T/W@(OUSE_L5GV@GLK@/O,iO,g I,BZ4EF-0am  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#on*\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#C:\Program Files\Common Files\System\ado\msado21.tlb#Microsoft ActiveX Data Objects 2.1 Library"s>8UJAXNNILOQILSDVUQAYRJVGWGYID093e04731ahmetasdnZx)8DSRTOHDRMLZJGEGSTPPJFGVLXEAI0:3e04731a sound1(8GIBMIOHMSQBBTDWLOWSNLRGVVGKG0=3e047322 sound2gHih(Hx}QFn)}5;:;@_4OOc2 aKB$ (JM.Access bVBAWin16~Win32MacVBA6#Project1 stdole` algorithmsADODBsModule1b _EvaluateInStrCSearchIn(SoughtCharactersi`UCase5  metaphonebYaXcZd[e\inp=outpQ$vowels{frontv varsondblexcppair_knxtltrtkii]jj]lng?lastchr93curltr Hprevltrfnextltrnextltr21nextltr31 vowelafterG vowelbefore frontvaftersilenthardvQalphachrXIsNullRight ContinueMainLoop9 _B_var_UCasea _B_var_Midp _B_var_Right9 _B_var_LeftQmetasdnSoundex;WordkstrCode%strChar$ lngWordLength strLastCodeUbGetSoundCodeNumberw CharacteriC _B_str_MidX_B_var_i  _B_var_Stringӊsound1Soundex2sgsjTrim@CodeLastbhRi vbNullString _B_str_Trim _B_str_UCaseKsound2`i K[v1 @ 6<CcgxME(<< <<+`<@@((i `@r`p`l`h%+ B  ( @ X p  &  (&0 PX p x       (8@ H X &p"$ x $ $ ']`F']xF']F 'c.]F    $ idBKPKTdc.'FKVKT9v'CKKKSKTer'GKJKTer'QKXKZKTsg7'DKTKT'LKT'MKNKT'RKT 'S'n  $ '   e  'k  '  Debug.Print R Soundex = Mid$(R & "0000", 1, 4) 000000$ 'i0Attribute VB_Name = "sound2" Option Compare Database PFuncxS\ex2(s As "Sng) J sUCx$(Trim$(sD))2Dimade1IntegeDr:= 0"Last " "R: RpvbNXullIi&Long: For i1 To LenJ S@elect Y MidX, i, 1Zi "B"p, "P Coh= 1& $T"FV2 CUKS3GUJ4 QXUZS 5M D TU 6 L 7 MUN 8 R 99 ElAd EndxIf (‚) ThenG ’ŀ1ɀ {<> 0 AEAR &yA#IfEDN ext i'Debug.Print R@)"0V+4Ĭ 006AE{|F(uncJSjex(Word AsD Sng) rU ,`a(`nContinuc,ar g a 2 3 4 5 6Soundex2 000000 q  qxME(> < <+j`hk@&&il `n@t`pp`rl`t`h+v`xt+)ix X%xPpXK[v1 @@ `jx0v\@X @H @8 @( @ @ @ @( @@ h(@ (P0`vx@h@t P 0 "s>$*\Rffff*0:3e04731a.*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f@ B   ( 0/P p  8"; (( Pp    6 6 &@h"9x  B   * 0 ".  HB]X        0@ H Xx]`]x]] Grabs the first letter l$ $'n& n$v't Stores the word length l'r2 Continues the code, starting at the second letter  r1 l $ $$v'pev" If adjacent numbers are the same, only count one of themv p t pwav n p'nkP p't@0 Trim it down to a maximum of four characters...v n$ 'j/ ... but if it's less than four characters, pad it out with a bunch of zeros... n j n 0$\'jkPiH$ Accepts a character and returns the* appropriate number from the Soundex table xBKFKPKVKT1'vCKGKJKKKQKSKXKZKT2'vDKTKT3'vLKT4'vMKNKT5'vRKT6'vniSAttribute VB_Name = "sound1" Option Compare Database Public F(uncJSjex(Word AsD Sng)  Dim strCode# 8har lngULength!LongHLast L ' Grabs the first letter {= UC(MiDd$Z, 1))*= Getn2Number(!4Stor*e5w~lT 9[= `4Continuc,ar g at]secondA]For i2 To /K;ZwiwB#f' If adjac ent nB:s +A~Qs@,C' @only c@|te of+mC:") > 0 A0U<>*Then A m=A&E  E@IfI Next' Tr@it down to a m@aximum,f our c ac@s... X…#J, 4m if i(t'sgsan , pad out wi"anchzeroCL<) < 4 F$E&0(4 -)),0 "0")I ADPrivaw[Ce"'qy' Accept`D ( a4retu rn"bappr0opriJ from\%@l"Select As =b"B"FPV!G`/8"!CaGJKQSXZ= 2u# DaTg3UL4M N՞5R6 D.CE :r .GK[v1 @"Thard@IhZ Not ( K!62 cGOf fNiHikd., varsonB?6 jbefore"&>&>?C*cur @K F", T"JLMNR": :%N<> "CCN\"P@ '{Hr"F"b?L kQN"S; ((t> rU~| + q9a !A) Yq  1 I a y ! 9 Q i l CtlCpKpM\@L L`1p5LtM\@L L`1t5LnltJcH__SRP_1 1 metasdn algorithmsModule1F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  10J_N? 3C:\Program Files\Microsoft Office\Office\MSACC9.OLBAccess  )@0FC:\WINDOWS\System32\stdole2.tlbstdole 1yP Sm.4C:\Program Files\Common Files\System\ado\msado21.tlbADODB 1`InStrC metaphone VBE6.DLL q qx   AEIOU EIY CSPTG . AGKPW ENNNR 4ABCDEFGHIJKLMNOPQRSTUVWXYZ X WH W   B M C I A H K D G J T N E F L R P Q O 0 V Y KS Z q0 qk qi SoundexGetSoundCodeNumber qw @ q_ `A,CK,U O,I,-utpQ$vowels{frontv varsonam  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Microsoft8000-00AA006D2EA4}#2.1#0#C:\Program Files\Common Files\System\ado\msado21.tlb#Microsoft ActiveX Data Objects 2.1 Libraryr>8UJAXNNILOQILSDVUQAYRJVGWGYID063e0472d8hmetasdnZ)8DSRTOHDRMLZJGEGSTPPJFGVLXEAI093e0472e5 sound1(U H(%Y  N Y  d Y d Y d Y Sdname soundmeta sound2dv