CDrawGroup;@;@ ;@ CDrawRect;@;@  CMouseKey   \Dim objDataLinks, res Set objDataLinks = CreateObject("DataLinks") On Error Resume Next res = objDataLinks.PromptNew If err.number<>0 Then MsgBox $Ext("Error ") & err.number & ": " & err.Description, vbCritical, $Ext("Database Error") Else $#ConnectionStringTag: = res End If On Error Goto 0 Set oDataLinks = NothingDim objDataLinks, res Set objDataLinks = CreateObject("DataLinks") On Error Resume Next res = objDataLinks.PromptNew If err.number<>0 Then MsgBox StFunction1__(31, 1, "Error ") & err.number & ": " & err.Description, vbCritical, StFunction1__(31, 1, "Database Error") Else Call StSetTagVal__(-1, 0, 0, 0, 0, 4, 8, res) End If On Error Goto 0 Set oDataLinks = Nothing #Disable:0 35Disable:0 Arial CDrawBitmap88   (  upb<3%4)4)5, MD8obQ>5*4)*!k`OH<+N?,gк]L8 *"|iKۻŤβϳƥ۽d%|r_snc%ÝpֲۻŤβϳƥ۽ֳĠs>/|q\2&qIѩyֲۻŤβϳƥ۽ֳѫ{ǝj ƜhѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤŸֵѪzϥrЧuŽNŽNɚaϥrΣoձٹĢ۽ֳѫ{͢m ̡kѩyҬ~̠kŔVĐQ̡kӮڼƥϳֳϧtŔXÐQʝeϦuѫ{͢m ̠jɚaĐRШwдղƖZƕXˠi œVΦs۽ŔV ̡kսսսսսսսսսսսսսսսսսսսսڼ ̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯ ${ááááááááááááááááááááá llaM<(ںںںںںںںںںںںںںںںںںںںںlOD:*OI<YE,ǤzձձձձձձձձձձձձձձձձձyaB:0!cbW ^H,VϧuШwШwШwШwШwШwШwШwШwШwШw`pV6%HB5^]U# P<#cK-{^9qFtJtJrFg>cK-]E(  LKBhmiYVLD@6.*#/'/'.)!95-ZUH]a^9>9> {#Label:"Database Link"} Arial