ใครก็ได้ช่วยดูคำสั่ง sql หน่อย ว่าผิดหรือป่าว แต่มันไม่โชว เวลาไปลองในdatabase มันโชวอะ

  Private Sub tbAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAdd.Click
        If cbbYear.Text = "-- กรุณาปีที่ปันผล --" Then
            MessageBox.Show("กรุณาเลือกปีที่ต้องการปันผล", "ตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Return
        End If
        Dim year2 As String
        Dim year3 As String
        'ปีที่เลือก มันเป็น พ.ศ. นำมา - 543 ให้เป็น ค.ศ.
        year2 = CStr(CInt(cbbYear.SelectedValue.ToString()) - 543)
        year3 = CStr(CInt(year2) + 1)
        Try
            'Dim sqlShares As String = "select s.mem_id,m.mem_name ,m.mem_lastname,sum(s.total_price),m.share_amount from 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 "

            Dim sqlShares As String = "SELECT     sale.mem_id, Member.Mem_Name, Member.Mem_Lastname, SUM(sale_detial.sale_num * sale_detial.cost) AS Total_sale,"
            sqlShares &= "Member.Share_Amount, sale.sale_date between '" & year2 & "/4/1' and '" & year3 & "/3/31' "
            sqlShares &= " FROM         Member INNER JOIN"
            sqlShares &= "sale ON Member.Mem_ID = sale.mem_id INNER JOIN"
            sqlShares &= "sale_detial ON sale.sale_id = sale_detial.sale_id"
            sqlShares &= "GROUP BY sale.mem_id, Member.Mem_Name, Member.Mem_Lastname, sale_detial.sale_num, sale_detial.cost,Member.Share_Amount, sale.sale_date"
            sqlShares &= "HAVING sale.mem_id ='M560001'"
            da = New SqlDataAdapter(sqlShares, Conn)
            da.SelectCommand.CommandText = sqlShares
            ds = New DataSet()
            da.Fill(ds, "share")
            'วน for เพื่อ นำข้อมูลที่ select มา Add ลงไปใน grid view 
            For i = 0 To ds.Tables("share").Rows.Count - 1
                'ds.tables(" ชื่อตาราง") .แถวที่(i)(คอลัมที่)
                gvList.Rows.Add(New String() {ds.Tables("share").Rows(i)(0).ToString(), ds.Tables("share").Rows(i)(1).ToString(), ds.Tables("share").Rows(i)(2).ToString(), ds.Tables("share").Rows(i)(3).ToString(), ds.Tables("share").Rows(i)(4).ToString(), CStr(((CDbl(ds.Tables("share").Rows(i)(3).ToString()) * CDbl(tbRate.Text) / 100) * CDbl(ds.Tables("share").Rows(i)(4).ToString())))})
            Next
            btSave.Enabled = True
            btAdd.Enabled = False
            cbbYear.Enabled = False
            dtDate.Enabled = False
        Catch
            MessageBox.Show("ไม่สามารถปันผลได้", "ตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End Try
    End Sub