Dim sqlShares As String = "select s.mem_id,m.mem_name ,m.mem_lastname,sum(d.cost * d.sale_num),m.share_amount from sale_detial d, sale s,member m where s.mem_id=m.mem_id and s.sale_date between '" & year2 & "/4/1' and '" & year3 & "/3/31' group by s.mem_id,m.mem_name,m.mem_lastname,m.share_amount "