Public Sub ReadInfo10()
On Error GoTo ErrProc
       
        isql = " select"
        isql = isql & " distinct(a.reader_cd),"
        isql = isql & " a.book_cd,"
        isql = isql & " b.reader_cd,"
        isql = isql & " a.book_cd,"
        isql = isql & " a.book_nm,"
        isql = isql & " a.reader_cd1,"
        isql = isql & " a.reader_nm,"
        isql = isql & " a.industry_cd,"
        isql = isql & " a.industry_nm,"
        isql = isql & " a.companay,"
        isql = isql & " a.school,"
        isql = isql & " a.school1,"
        isql = isql & " b.give_nm,"
        isql = isql & " b.give_print,"
        isql = isql & " b.title,"
        isql = isql & " b.tel,"
        isql = isql & " b.tel1,"
        isql = isql & " b.hp,"
        isql = isql & " b.tel2,"
        isql = isql & " b.tel3,"
        isql = isql & " a.dou,"
        isql = isql & " a.send,"
        isql = isql & " a.area,"
        isql = isql & " a.zip,"
        isql = isql & " a.addr,"
        isql = isql & " a.addr1,"
        isql = isql & " a.addr2,"
        isql = isql & " a.addr3,"
        isql = isql & " a.zip1,"
        isql = isql & " a.addr4,"
        isql = isql & " a.addr5,"
        isql = isql & " a.addr6,"
        isql = isql & " a.addr7,"
        isql = isql & " a.sinchung1,"
        isql = isql & " a.sintel,"
        isql = isql & " a.sinhp,"
        isql = isql & " a.sincompany,"
        isql = isql & " a.zip2,"
        isql = isql & " a.addr10,"
        isql = isql & " a.addr11,"
        isql = isql & " a.addr12,"
        isql = isql & " a.addr13,"
        isql = isql & " a.givenm,"
        isql = isql & " a.givetel,"
        isql = isql & " a.givehp,"
        isql = isql & " a.givecompany,"
        isql = isql & " a.zip3,"
        isql = isql & " a.addr14,"
        isql = isql & " a.addr15,"
        isql = isql & " a.addr16,"
        isql = isql & " a.addr17,"
        isql = isql & " a.give_address,"
        isql = isql & " a.give_address1,"
        isql = isql & " a.expand_gu,"
        isql = isql & " a.expand_nm,"
        isql = isql & " a.receive,"
        isql = isql & " a.exp_dt,"
        isql = isql & " a.exp_dt1,"
        isql = isql & " a.su,"
        isql = isql & " a.wol,"
        isql = isql & " a.ho,"
        isql = isql & " a.ho1,"
        isql = isql & " a.newdok,"
        isql = isql & " a.newdok1,"
        isql = isql & " a.newdok2,"
        isql = isql & " a.newdok3,"
        isql = isql & " b.newdok,"
        isql = isql & " b.newdok1,"
        isql = isql & " b.newdok2,"
        isql = isql & " b.newdok3,"
        isql = isql & " a.tax,"
        isql = isql & " a.sano,"
        isql = isql & " a.se_mail,"
        isql = isql & " a.oname,"
        isql = isql & " a.zip4,"
        isql = isql & " a.addr18,"
        isql = isql & " a.addr19,"
        isql = isql & " a.addr20,"
        isql = isql & " a.addr21,"
        isql = isql & " a.kita,"
        isql = isql & " a.kita1,"
        isql = isql & " b.bonus,"
        isql = isql & " b.bonus1,"
        isql = isql & " b.bonus2,"
        isql = isql & " a.buis,"
        isql = isql & " a.buis_nm,"
        isql = isql & " b.delivery,"
        isql = isql & " b.delivery_nm,"
        isql = isql & " b.station,"
        isql = isql & " b.station_nm,"
        isql = isql & " b.amount,"
        isql = isql & " b.su_amount,"
        isql = isql & " b.su_year,"
        isql = isql & " b.memo,"
        isql = isql & " b.memo1,"
        isql = isql & " b.incode,"
        isql = isql & " b.incode_nm,"
        isql = isql & " a.doseo,"
        isql = isql & " a.doseo_nm,"
        isql = isql & " a.giro2,"
        isql = isql & " a.giro_nm,"
        isql = isql & " a.sa,"
        isql = isql & " a.sa_nm,"
        isql = isql & " a.postmail,"
        isql = isql & " a.postmainamel,"
        isql = isql & " a.mail,"
        isql = isql & " a.sms,"
        isql = isql & " a.e_mail,"
        isql = isql & " a.e_mail1,"
        isql = isql & " a.sinchung,"
        isql = isql & " a.stop,"
        isql = isql & " a.stopho,"
        isql = isql & " a.start,"
        isql = isql & " a.startho,"
        isql = isql & " a.school,"
        isql = isql & " a.school1,"
        isql = isql & " a.post,"
        isql = isql & " a.post1,"
        isql = isql & " a.post2,"
        isql = isql & " b.sosok,"
        isql = isql & " b.jik,"
        isql = isql & " b.baesong,"
        isql = isql & " b.baesong1,"
        isql = isql & " b.baesong2,"
        isql = isql & " b.baesong3,"
        isql = isql & " b.sho,"
        isql = isql & " b.shogu,"
        isql = isql & " b.ipkum,"
        isql = isql & " b.sho1,"
        isql = isql & " b.baesong_nm,"
        isql = isql & " b.shogu_nm,"
        isql = isql & " b.give,"
        isql = isql & " b.giro,"
        isql = isql & " b.giro1,"
        isql = isql & " b.gironm,"
        isql = isql & " a.jobcode,"
        isql = isql & " a.jobcode_nm,"
        isql = isql & " a.dwelling,"
        isql = isql & " a.Dwelling_nm,"
        isql = isql & " a.sex,"
        isql = isql & " a.sex1,"
        isql = isql & " a.Sex_nm,"
        isql = isql & " a.income,"
        isql = isql & " a.income_nm,"
        isql = isql & " b.incode,"
        isql = isql & " b.incode_nm,"
        isql = isql & " b.addr8,"
        isql = isql & " b.gift_nm,"
        isql = isql & " b.gift1_nm,"
        isql = isql & " b.gift2_nm,"
        isql = isql & " b.gift_cd,"
        isql = isql & " b.card_cd,"
        isql = isql & " b.bonbu,"
        isql = isql & " b.link,"
        isql = isql & " b.can_name,"
        isql = isql & " b.oldcust,"
        isql = isql & " b.newcust"
        isql = isql & " from custormer a,custormer1 b"
        isql = isql & " where    b.tel  like    '" + Trim(Text1.Text) + "%" + "'"
        isql = isql & " and a.reader_cd = b.reader_cd"
        If Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" Then
           isql = isql & " and a.book_cd >= '" + Trim(Text2.Text) + "'"
           isql = isql & " and a.book_cd <= '" + Trim(Text3.Text) + "'"
        End If
        If Trim(Text4.Text) <> "" Then
           isql = isql & " and  '" + Trim(Text4.Text) + "' between ho and ho1"
        End If
        isql = isql & " Union All "
        isql = isql & " select"
        isql = isql & " distinct(a.reader_cd),"
        isql = isql & " a.book_cd,"
        isql = isql & " b.reader_cd,"
        isql = isql & " a.book_cd,"
        isql = isql & " a.book_nm,"
        isql = isql & " a.reader_cd1,"
        isql = isql & " a.reader_nm,"
        isql = isql & " a.industry_cd,"
        isql = isql & " a.industry_nm,"
        isql = isql & " a.companay,"
        isql = isql & " a.school,"
        isql = isql & " a.school1,"
        isql = isql & " b.give_nm,"
        isql = isql & " b.give_print,"
        isql = isql & " b.title,"
        isql = isql & " b.tel,"
        isql = isql & " b.tel1,"
        isql = isql & " b.hp,"
        isql = isql & " b.tel2,"
        isql = isql & " b.tel3,"
        isql = isql & " a.dou,"
        isql = isql & " a.send,"
        isql = isql & " a.area,"
        isql = isql & " a.zip,"
        isql = isql & " a.addr,"
        isql = isql & " a.addr1,"
        isql = isql & " a.addr2,"
        isql = isql & " a.addr3,"
        isql = isql & " a.zip1,"
        isql = isql & " a.addr4,"
        isql = isql & " a.addr5,"
        isql = isql & " a.addr6,"
        isql = isql & " a.addr7,"
        isql = isql & " a.sinchung1,"
        isql = isql & " a.sintel,"
        isql = isql & " a.sinhp,"
        isql = isql & " a.sincompany,"
        isql = isql & " a.zip2,"
        isql = isql & " a.addr10,"
        isql = isql & " a.addr11,"
        isql = isql & " a.addr12,"
        isql = isql & " a.addr13,"
        isql = isql & " a.givenm,"
        isql = isql & " a.givetel,"
        isql = isql & " a.givehp,"
        isql = isql & " a.givecompany,"
        isql = isql & " a.zip3,"
        isql = isql & " a.addr14,"
        isql = isql & " a.addr15,"
        isql = isql & " a.addr16,"
        isql = isql & " a.addr17,"
        isql = isql & " a.give_address,"
        isql = isql & " a.give_address1,"
        isql = isql & " a.expand_gu,"
        isql = isql & " a.expand_nm,"
        isql = isql & " a.receive,"
        isql = isql & " a.exp_dt,"
        isql = isql & " a.exp_dt1,"
        isql = isql & " a.su,"
        isql = isql & " a.wol,"
        isql = isql & " a.ho,"
        isql = isql & " a.ho1,"
        isql = isql & " a.newdok,"
        isql = isql & " a.newdok1,"
        isql = isql & " a.newdok2,"
        isql = isql & " a.newdok3,"
        isql = isql & " b.newdok,"
        isql = isql & " b.newdok1,"
        isql = isql & " b.newdok2,"
        isql = isql & " b.newdok3,"
        isql = isql & " a.tax,"
        isql = isql & " a.sano,"
        isql = isql & " a.se_mail,"
        isql = isql & " a.oname,"
        isql = isql & " a.zip4,"
        isql = isql & " a.addr18,"
        isql = isql & " a.addr19,"
        isql = isql & " a.addr20,"
        isql = isql & " a.addr21,"
        isql = isql & " a.kita,"
        isql = isql & " a.kita1,"
        isql = isql & " b.bonus,"
        isql = isql & " b.bonus1,"
        isql = isql & " b.bonus2,"
        isql = isql & " a.buis,"
        isql = isql & " a.buis_nm,"
        isql = isql & " b.delivery,"
        isql = isql & " b.delivery_nm,"
        isql = isql & " b.station,"
        isql = isql & " b.station_nm,"
        isql = isql & " b.amount,"
        isql = isql & " b.su_amount,"
        isql = isql & " b.su_year,"
        isql = isql & " b.memo,"
        isql = isql & " b.memo1,"
        isql = isql & " b.incode,"
        isql = isql & " b.incode_nm,"
        isql = isql & " a.doseo,"
        isql = isql & " a.doseo_nm,"
        isql = isql & " a.giro2,"
        isql = isql & " a.giro_nm,"
        isql = isql & " a.sa,"
        isql = isql & " a.sa_nm,"
        isql = isql & " a.postmail,"
        isql = isql & " a.postmainamel,"
        isql = isql & " a.mail,"
        isql = isql & " a.sms,"
        isql = isql & " a.e_mail,"
        isql = isql & " a.e_mail1,"
        isql = isql & " a.sinchung,"
        isql = isql & " a.stop,"
        isql = isql & " a.stopho,"
        isql = isql & " a.start,"
        isql = isql & " a.startho,"
        isql = isql & " a.school,"
        isql = isql & " a.school1,"
        isql = isql & " a.post,"
        isql = isql & " a.post1,"
        isql = isql & " a.post2,"
        isql = isql & " b.sosok,"
        isql = isql & " b.jik,"
        isql = isql & " b.baesong,"
        isql = isql & " b.baesong1,"
        isql = isql & " b.baesong2,"
        isql = isql & " b.baesong3,"
        isql = isql & " b.sho,"
        isql = isql & " b.shogu,"
        isql = isql & " b.ipkum,"
        isql = isql & " b.sho1,"
        isql = isql & " b.baesong_nm,"
        isql = isql & " b.shogu_nm,"
        isql = isql & " b.give,"
        isql = isql & " b.giro,"
        isql = isql & " b.giro1,"
        isql = isql & " b.gironm,"
        isql = isql & " a.jobcode,"
        isql = isql & " a.jobcode_nm,"
        isql = isql & " a.dwelling,"
        isql = isql & " a.Dwelling_nm,"
        isql = isql & " a.sex,"
        isql = isql & " a.sex1,"
        isql = isql & " a.Sex_nm,"
        isql = isql & " a.income,"
        isql = isql & " a.income_nm,"
        isql = isql & " b.incode,"
        isql = isql & " b.incode_nm,"
        isql = isql & " b.addr8,"
        isql = isql & " b.gift_nm,"
        isql = isql & " b.gift1_nm,"
        isql = isql & " b.gift2_nm,"
        isql = isql & " b.gift_cd,"
        isql = isql & " b.card_cd,"
        isql = isql & " b.bonbu,"
        isql = isql & " b.link,"
        isql = isql & " b.can_name,"
        isql = isql & " b.oldcust,"
        isql = isql & " b.newcust"
        isql = isql & " from custormer a,custormer1 b"
        isql = isql & " where    b.tel1  like    '" + Trim(Text1.Text) + "%" + "'"
        isql = isql & " and a.reader_cd = b.reader_cd"
        If Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" Then
           isql = isql & " and a.book_cd >= '" + Trim(Text2.Text) + "'"
           isql = isql & " and a.book_cd <= '" + Trim(Text3.Text) + "'"
        End If
        If Trim(Text4.Text) <> "" Then
           isql = isql & " and  '" + Trim(Text4.Text) + "' between ho and ho1"
        End If
        isql = isql & " Union All "
        isql = isql & " select"
        isql = isql & " distinct(a.reader_cd),"
        isql = isql & " a.book_cd,"
        isql = isql & " b.reader_cd,"
        isql = isql & " a.book_cd,"
        isql = isql & " a.book_nm,"
        isql = isql & " a.reader_cd1,"
        isql = isql & " a.reader_nm,"
        isql = isql & " a.industry_cd,"
        isql = isql & " a.industry_nm,"
        isql = isql & " a.companay,"
        isql = isql & " a.school,"
        isql = isql & " a.school1,"
        isql = isql & " b.give_nm,"
        isql = isql & " b.give_print,"
        isql = isql & " b.title,"
        isql = isql & " b.tel,"
        isql = isql & " b.tel1,"
        isql = isql & " b.hp,"
        isql = isql & " b.tel2,"
        isql = isql & " b.tel3,"
        isql = isql & " a.dou,"
        isql = isql & " a.send,"
        isql = isql & " a.area,"
        isql = isql & " a.zip,"
        isql = isql & " a.addr,"
        isql = isql & " a.addr1,"
        isql = isql & " a.addr2,"
        isql = isql & " a.addr3,"
        isql = isql & " a.zip1,"
        isql = isql & " a.addr4,"
        isql = isql & " a.addr5,"
        isql = isql & " a.addr6,"
        isql = isql & " a.addr7,"
        isql = isql & " a.sinchung1,"
        isql = isql & " a.sintel,"
        isql = isql & " a.sinhp,"
        isql = isql & " a.sincompany,"
        isql = isql & " a.zip2,"
        isql = isql & " a.addr10,"
        isql = isql & " a.addr11,"
        isql = isql & " a.addr12,"
        isql = isql & " a.addr13,"
        isql = isql & " a.givenm,"
        isql = isql & " a.givetel,"
        isql = isql & " a.givehp,"
        isql = isql & " a.givecompany,"
        isql = isql & " a.zip3,"
        isql = isql & " a.addr14,"
        isql = isql & " a.addr15,"
        isql = isql & " a.addr16,"
        isql = isql & " a.addr17,"
        isql = isql & " a.give_address,"
        isql = isql & " a.give_address1,"
        isql = isql & " a.expand_gu,"
        isql = isql & " a.expand_nm,"
        isql = isql & " a.receive,"
        isql = isql & " a.exp_dt,"
        isql = isql & " a.exp_dt1,"
        isql = isql & " a.su,"
        isql = isql & " a.wol,"
        isql = isql & " a.ho,"
        isql = isql & " a.ho1,"
        isql = isql & " a.newdok,"
        isql = isql & " a.newdok1,"
        isql = isql & " a.newdok2,"
        isql = isql & " a.newdok3,"
        isql = isql & " b.newdok,"
        isql = isql & " b.newdok1,"
        isql = isql & " b.newdok2,"
        isql = isql & " b.newdok3,"
        isql = isql & " a.tax,"
        isql = isql & " a.sano,"
        isql = isql & " a.se_mail,"
        isql = isql & " a.oname,"
        isql = isql & " a.zip4,"
        isql = isql & " a.addr18,"
        isql = isql & " a.addr19,"
        isql = isql & " a.addr20,"
        isql = isql & " a.addr21,"
        isql = isql & " a.kita,"
        isql = isql & " a.kita1,"
        isql = isql & " b.bonus,"
        isql = isql & " b.bonus1,"
        isql = isql & " b.bonus2,"
        isql = isql & " a.buis,"
        isql = isql & " a.buis_nm,"
        isql = isql & " b.delivery,"
        isql = isql & " b.delivery_nm,"
        isql = isql & " b.station,"
        isql = isql & " b.station_nm,"
        isql = isql & " b.amount,"
        isql = isql & " b.su_amount,"
        isql = isql & " b.su_year,"
        isql = isql & " b.memo,"
        isql = isql & " b.memo1,"
        isql = isql & " b.incode,"
        isql = isql & " b.incode_nm,"
        isql = isql & " a.doseo,"
        isql = isql & " a.doseo_nm,"
        isql = isql & " a.giro2,"
        isql = isql & " a.giro_nm,"
        isql = isql & " a.sa,"
        isql = isql & " a.sa_nm,"
        isql = isql & " a.postmail,"
        isql = isql & " a.postmainamel,"
        isql = isql & " a.mail,"
        isql = isql & " a.sms,"
        isql = isql & " a.e_mail,"
        isql = isql & " a.e_mail1,"
        isql = isql & " a.sinchung,"
        isql = isql & " a.stop,"
        isql = isql & " a.stopho,"
        isql = isql & " a.start,"
        isql = isql & " a.startho,"
        isql = isql & " a.school,"
        isql = isql & " a.school1,"
        isql = isql & " a.post,"
        isql = isql & " a.post1,"
        isql = isql & " a.post2,"
        isql = isql & " b.sosok,"
        isql = isql & " b.jik,"
        isql = isql & " b.baesong,"
        isql = isql & " b.baesong1,"
        isql = isql & " b.baesong2,"
        isql = isql & " b.baesong3,"
        isql = isql & " b.sho,"
        isql = isql & " b.shogu,"
        isql = isql & " b.ipkum,"
        isql = isql & " b.sho1,"
        isql = isql & " b.baesong_nm,"
        isql = isql & " b.shogu_nm,"
        isql = isql & " b.give,"
        isql = isql & " b.giro,"
        isql = isql & " b.giro1,"
        isql = isql & " b.gironm,"
        isql = isql & " a.jobcode,"
        isql = isql & " a.jobcode_nm,"
        isql = isql & " a.dwelling,"
        isql = isql & " a.Dwelling_nm,"
        isql = isql & " a.sex,"
        isql = isql & " a.sex1,"
        isql = isql & " a.Sex_nm,"
        isql = isql & " a.income,"
        isql = isql & " a.income_nm,"
        isql = isql & " b.incode,"
        isql = isql & " b.incode_nm,"
        isql = isql & " b.addr8,"
        isql = isql & " b.gift_nm,"
        isql = isql & " b.gift1_nm,"
        isql = isql & " b.gift2_nm,"
        isql = isql & " b.gift_cd,"
        isql = isql & " b.card_cd,"
        isql = isql & " b.bonbu,"
        isql = isql & " b.link,"
        isql = isql & " b.can_name,"
        isql = isql & " b.oldcust,"
        isql = isql & " b.newcust"
        isql = isql & " from custormer a,custormer1 b"
        isql = isql & " where    b.tel2 like    '" + Trim(Text1.Text) + "%" + "'"
        isql = isql & " and a.reader_cd = b.reader_cd"
        If Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" Then
           isql = isql & " and a.book_cd >= '" + Trim(Text2.Text) + "'"
           isql = isql & " and a.book_cd <= '" + Trim(Text3.Text) + "'"
        End If
        If Trim(Text4.Text) <> "" Then
           isql = isql & " and  '" + Trim(Text4.Text) + "' between ho and ho1"
        End If
        isql = isql & " Union All "
        isql = isql & " select"
        isql = isql & " distinct(a.reader_cd),"
        isql = isql & " a.book_cd,"
        isql = isql & " b.reader_cd,"
        isql = isql & " a.book_cd,"
        isql = isql & " a.book_nm,"
        isql = isql & " a.reader_cd1,"
        isql = isql & " a.reader_nm,"
        isql = isql & " a.industry_cd,"
        isql = isql & " a.industry_nm,"
        isql = isql & " a.companay,"
        isql = isql & " a.school,"
        isql = isql & " a.school1,"
        isql = isql & " b.give_nm,"
        isql = isql & " b.give_print,"
        isql = isql & " b.title,"
        isql = isql & " b.tel,"
        isql = isql & " b.tel1,"
        isql = isql & " b.hp,"
        isql = isql & " b.tel2,"
        isql = isql & " b.tel3,"
        isql = isql & " a.dou,"
        isql = isql & " a.send,"
        isql = isql & " a.area,"
        isql = isql & " a.zip,"
        isql = isql & " a.addr,"
        isql = isql & " a.addr1,"
        isql = isql & " a.addr2,"
        isql = isql & " a.addr3,"
        isql = isql & " a.zip1,"
        isql = isql & " a.addr4,"
        isql = isql & " a.addr5,"
        isql = isql & " a.addr6,"
        isql = isql & " a.addr7,"
        isql = isql & " a.sinchung1,"
        isql = isql & " a.sintel,"
        isql = isql & " a.sinhp,"
        isql = isql & " a.sincompany,"
        isql = isql & " a.zip2,"
        isql = isql & " a.addr10,"
        isql = isql & " a.addr11,"
        isql = isql & " a.addr12,"
        isql = isql & " a.addr13,"
        isql = isql & " a.givenm,"
        isql = isql & " a.givetel,"
        isql = isql & " a.givehp,"
        isql = isql & " a.givecompany,"
        isql = isql & " a.zip3,"
        isql = isql & " a.addr14,"
        isql = isql & " a.addr15,"
        isql = isql & " a.addr16,"
        isql = isql & " a.addr17,"
        isql = isql & " a.give_address,"
        isql = isql & " a.give_address1,"
        isql = isql & " a.expand_gu,"
        isql = isql & " a.expand_nm,"
        isql = isql & " a.receive,"
        isql = isql & " a.exp_dt,"
        isql = isql & " a.exp_dt1,"
        isql = isql & " a.su,"
        isql = isql & " a.wol,"
        isql = isql & " a.ho,"
        isql = isql & " a.ho1,"
        isql = isql & " a.newdok,"
        isql = isql & " a.newdok1,"
        isql = isql & " a.newdok2,"
        isql = isql & " a.newdok3,"
        isql = isql & " b.newdok,"
        isql = isql & " b.newdok1,"
        isql = isql & " b.newdok2,"
        isql = isql & " b.newdok3,"
        isql = isql & " a.tax,"
        isql = isql & " a.sano,"
        isql = isql & " a.se_mail,"
        isql = isql & " a.oname,"
        isql = isql & " a.zip4,"
        isql = isql & " a.addr18,"
        isql = isql & " a.addr19,"
        isql = isql & " a.addr20,"
        isql = isql & " a.addr21,"
        isql = isql & " a.kita,"
        isql = isql & " a.kita1,"
        isql = isql & " b.bonus,"
        isql = isql & " b.bonus1,"
        isql = isql & " b.bonus2,"
        isql = isql & " a.buis,"
        isql = isql & " a.buis_nm,"
        isql = isql & " b.delivery,"
        isql = isql & " b.delivery_nm,"
        isql = isql & " b.station,"
        isql = isql & " b.station_nm,"
        isql = isql & " b.amount,"
        isql = isql & " b.su_amount,"
        isql = isql & " b.su_year,"
        isql = isql & " b.memo,"
        isql = isql & " b.memo1,"
        isql = isql & " b.incode,"
        isql = isql & " b.incode_nm,"
        isql = isql & " a.doseo,"
        isql = isql & " a.doseo_nm,"
        isql = isql & " a.giro2,"
        isql = isql & " a.giro_nm,"
        isql = isql & " a.sa,"
        isql = isql & " a.sa_nm,"
        isql = isql & " a.postmail,"
        isql = isql & " a.postmainamel,"
        isql = isql & " a.mail,"
        isql = isql & " a.sms,"
        isql = isql & " a.e_mail,"
        isql = isql & " a.e_mail1,"
        isql = isql & " a.sinchung,"
        isql = isql & " a.stop,"
        isql = isql & " a.stopho,"
        isql = isql & " a.start,"
        isql = isql & " a.startho,"
        isql = isql & " a.school,"
        isql = isql & " a.school1,"
        isql = isql & " a.post,"
        isql = isql & " a.post1,"
        isql = isql & " a.post2,"
        isql = isql & " b.sosok,"
        isql = isql & " b.jik,"
        isql = isql & " b.baesong,"
        isql = isql & " b.baesong1,"
        isql = isql & " b.baesong2,"
        isql = isql & " b.baesong3,"
        isql = isql & " b.sho,"
        isql = isql & " b.shogu,"
        isql = isql & " b.ipkum,"
        isql = isql & " b.sho1,"
        isql = isql & " b.baesong_nm,"
        isql = isql & " b.shogu_nm,"
        isql = isql & " b.give,"
        isql = isql & " b.giro,"
        isql = isql & " b.giro1,"
        isql = isql & " b.gironm,"
        isql = isql & " a.jobcode,"
        isql = isql & " a.jobcode_nm,"
        isql = isql & " a.dwelling,"
        isql = isql & " a.Dwelling_nm,"
        isql = isql & " a.sex,"
        isql = isql & " a.sex1,"
        isql = isql & " a.Sex_nm,"
        isql = isql & " a.income,"
        isql = isql & " a.income_nm,"
        isql = isql & " b.incode,"
        isql = isql & " b.incode_nm,"
        isql = isql & " b.addr8,"
        isql = isql & " b.gift_nm,"
        isql = isql & " b.gift1_nm,"
        isql = isql & " b.gift2_nm,"
        isql = isql & " b.gift_cd,"
        isql = isql & " b.card_cd,"
        isql = isql & " b.bonbu,"
        isql = isql & " b.link,"
        isql = isql & " b.can_name,"
        isql = isql & " b.oldcust,"
        isql = isql & " b.newcust"
        isql = isql & " from custormer a,custormer1 b"
        isql = isql & " where    b.tel3  like    '" + Trim(Text1.Text) + "%" + "'"
        isql = isql & " and a.reader_cd = b.reader_cd"
        If Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" Then
           isql = isql & " and a.book_cd >= '" + Trim(Text2.Text) + "'"
           isql = isql & " and a.book_cd <= '" + Trim(Text3.Text) + "'"
        End If
        If Trim(Text4.Text) <> "" Then
           isql = isql & " and  '" + Trim(Text4.Text) + "' between ho and ho1"
        End If
        isql = isql & " Union All "
        isql = isql & " select"
        isql = isql & " distinct(a.reader_cd),"
        isql = isql & " a.book_cd,"
        isql = isql & " b.reader_cd,"
        isql = isql & " a.book_cd,"
        isql = isql & " a.book_nm,"
        isql = isql & " a.reader_cd1,"
        isql = isql & " a.reader_nm,"
        isql = isql & " a.industry_cd,"
        isql = isql & " a.industry_nm,"
        isql = isql & " a.companay,"
        isql = isql & " a.school,"
        isql = isql & " a.school1,"
        isql = isql & " b.give_nm,"
        isql = isql & " b.give_print,"
        isql = isql & " b.title,"
        isql = isql & " b.tel,"
        isql = isql & " b.tel1,"
        isql = isql & " b.hp,"
        isql = isql & " b.tel2,"
        isql = isql & " b.tel3,"
        isql = isql & " a.dou,"
        isql = isql & " a.send,"
        isql = isql & " a.area,"
        isql = isql & " a.zip,"
        isql = isql & " a.addr,"
        isql = isql & " a.addr1,"
        isql = isql & " a.addr2,"
        isql = isql & " a.addr3,"
        isql = isql & " a.zip1,"
        isql = isql & " a.addr4,"
        isql = isql & " a.addr5,"
        isql = isql & " a.addr6,"
        isql = isql & " a.addr7,"
        isql = isql & " a.sinchung1,"
        isql = isql & " a.sintel,"
        isql = isql & " a.sinhp,"
        isql = isql & " a.sincompany,"
        isql = isql & " a.zip2,"
        isql = isql & " a.addr10,"
        isql = isql & " a.addr11,"
        isql = isql & " a.addr12,"
        isql = isql & " a.addr13,"
        isql = isql & " a.givenm,"
        isql = isql & " a.givetel,"
        isql = isql & " a.givehp,"
        isql = isql & " a.givecompany,"
        isql = isql & " a.zip3,"
        isql = isql & " a.addr14,"
        isql = isql & " a.addr15,"
        isql = isql & " a.addr16,"
        isql = isql & " a.addr17,"
        isql = isql & " a.give_address,"
        isql = isql & " a.give_address1,"
        isql = isql & " a.expand_gu,"
        isql = isql & " a.expand_nm,"
        isql = isql & " a.receive,"
        isql = isql & " a.exp_dt,"
        isql = isql & " a.exp_dt1,"
        isql = isql & " a.su,"
        isql = isql & " a.wol,"
        isql = isql & " a.ho,"
        isql = isql & " a.ho1,"
        isql = isql & " a.newdok,"
        isql = isql & " a.newdok1,"
        isql = isql & " a.newdok2,"
        isql = isql & " a.newdok3,"
        isql = isql & " b.newdok,"
        isql = isql & " b.newdok1,"
        isql = isql & " b.newdok2,"
        isql = isql & " b.newdok3,"
        isql = isql & " a.tax,"
        isql = isql & " a.sano,"
        isql = isql & " a.se_mail,"
        isql = isql & " a.oname,"
        isql = isql & " a.zip4,"
        isql = isql & " a.addr18,"
        isql = isql & " a.addr19,"
        isql = isql & " a.addr20,"
        isql = isql & " a.addr21,"
        isql = isql & " a.kita,"
        isql = isql & " a.kita1,"
        isql = isql & " b.bonus,"
        isql = isql & " b.bonus1,"
        isql = isql & " b.bonus2,"
        isql = isql & " a.buis,"
        isql = isql & " a.buis_nm,"
        isql = isql & " b.delivery,"
        isql = isql & " b.delivery_nm,"
        isql = isql & " b.station,"
        isql = isql & " b.station_nm,"
        isql = isql & " b.amount,"
        isql = isql & " b.su_amount,"
        isql = isql & " b.su_year,"
        isql = isql & " b.memo,"
        isql = isql & " b.memo1,"
        isql = isql & " b.incode,"
        isql = isql & " b.incode_nm,"
        isql = isql & " a.doseo,"
        isql = isql & " a.doseo_nm,"
        isql = isql & " a.giro2,"
        isql = isql & " a.giro_nm,"
        isql = isql & " a.sa,"
        isql = isql & " a.sa_nm,"
        isql = isql & " a.postmail,"
        isql = isql & " a.postmainamel,"
        isql = isql & " a.mail,"
        isql = isql & " a.sms,"
        isql = isql & " a.e_mail,"
        isql = isql & " a.e_mail1,"
        isql = isql & " a.sinchung,"
        isql = isql & " a.stop,"
        isql = isql & " a.stopho,"
        isql = isql & " a.start,"
        isql = isql & " a.startho,"
        isql = isql & " a.school,"
        isql = isql & " a.school1,"
        isql = isql & " a.post,"
        isql = isql & " a.post1,"
        isql = isql & " a.post2,"
        isql = isql & " b.sosok,"
        isql = isql & " b.jik,"
        isql = isql & " b.baesong,"
        isql = isql & " b.baesong1,"
        isql = isql & " b.baesong2,"
        isql = isql & " b.baesong3,"
        isql = isql & " b.sho,"
        isql = isql & " b.shogu,"
        isql = isql & " b.ipkum,"
        isql = isql & " b.sho1,"
        isql = isql & " b.baesong_nm,"
        isql = isql & " b.shogu_nm,"
        isql = isql & " b.give,"
        isql = isql & " b.giro,"
        isql = isql & " b.giro1,"
        isql = isql & " b.gironm,"
        isql = isql & " a.jobcode,"
        isql = isql & " a.jobcode_nm,"
        isql = isql & " a.dwelling,"
        isql = isql & " a.Dwelling_nm,"
        isql = isql & " a.sex,"
        isql = isql & " a.sex1,"
        isql = isql & " a.Sex_nm,"
        isql = isql & " a.income,"
        isql = isql & " a.income_nm,"
        isql = isql & " b.incode,"
        isql = isql & " b.incode_nm,"
        isql = isql & " b.addr8,"
        isql = isql & " b.gift_nm,"
        isql = isql & " b.gift1_nm,"
        isql = isql & " b.gift2_nm,"
        isql = isql & " b.gift_cd,"
        isql = isql & " b.card_cd,"
        isql = isql & " b.bonbu,"
        isql = isql & " b.link,"
        isql = isql & " b.can_name,"
        isql = isql & " b.oldcust,"
        isql = isql & " b.newcust"
        isql = isql & " from custormer a,custormer1 b"
        isql = isql & " where    b.hp   like    '" + Trim(Text1.Text) + "%" + "'"
        isql = isql & " and a.reader_cd = b.reader_cd"
        If Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" Then
           isql = isql & " and a.book_cd >= '" + Trim(Text2.Text) + "'"
           isql = isql & " and a.book_cd <= '" + Trim(Text3.Text) + "'"
        End If
        If Trim(Text4.Text) <> "" Then
           isql = isql & " and  '" + Trim(Text4.Text) + "' between ho and ho1"
        End If
        isql = isql & " order by   a.book_cd, cast(a.reader_cd as bigint) desc"
       Call OpenRecordset5(isql, False)
        If ars5.EOF Then
           fpSpread3.MaxRows = 1
        Else
           Command2.Enabled = True
           rowcnt = 1: fpSpread3.MaxRows = rowcnt
           fpSpread3.GridShowHoriz = False
           fpSpread3.GridShowVert = False
           fpSpread3.CellBorderStyle = CellBorderStyleSolid
           Do While Not ars5.EOF
              Call Make_sp3
              ars5.MoveNext
              rowcnt = rowcnt + 1: fpSpread3.MaxRows = rowcnt
           Loop
           adTextBox2.Text = Format(Cnt, "###,###,##0")
           With fpSpread3
                .Row = 1
                .Row2 = .MaxRows
                .Col = 7
                .Col2 = 9
                .BlockMode = True
                .BackColor = &HC0FFC0
                .BlockMode = False
           End With
           With fpSpread3
                .Row = 1
                .Row2 = .MaxRows
                .Col = 4
                .Col2 = 4
                .BlockMode = True
                .BackColor = &HC0FFC0
               .BlockMode = False
           End With
           With fpSpread3
                .Col = 1: .Col2 = .MaxCols: .Row = 1: .Row2 = .MaxRows
                .BlockMode = True
                .CellBorderType = SS_BORDER_TYPE_TOP Or SS_BORDER_TYPE_LEFT Or SS_BORDER_TYPE_RIGHT Or SS_BORDER_TYPE_BOTTOM
                .CellBorderColor = RGB(0, 0, 0)
                .Action = SS_ACTION_SET_CELL_BORDER
                .BlockMode = False
          End With
          rowcnt = rowcnt - 1: fpSpread3.MaxRows = rowcnt
          fpSpread3.ReDraw = True
          If Option5.Value = True Then
             Fill_txt1
          ElseIf Option5.Value = False Then
             Fill_txt
          End If
        End If
           Exit Sub

ErrProc:
       pErr_Msg (Err.Description)
       Resume Next

end sub

입력 화면에 전화번호를 입력하는 곳이 여러곳이 있어서 전 화번호를 검색시 union all을 쓰고 있습니다.

조회된 독자가 여러명인 경우에  독자 정렬 순서가  도서매체순, 독자번호순으로 되어 있는데

조회시에 문에 union 연산자가 포함된경우 order by  항목이 select 목록에 나타나야 합니다.

라고 에러메세지만 나옵니다.

order by구문을 어떻게 바꿔야 하는지 답변을 부탁드립니다.

order by 구분에 매체로만 정렬하면 에러가 나지 않습니다.

독자번호를 포함하면 에러가 나는데 원 데이터 타입은 문자형이고 정렬을 위해 cast를 써서 숫자형으로 정렬합니다.

orser by 에 cast(a.reader_cd as bigint)만 들어가면 에러가 납니다.