How to Work PIVOT TABLE

i need one more help..

Dim strSQL27 As String = "SELECT [FeesType] FROM FeeMaster WHERE Class='" & cboClass.Text & "'" '
Dim DaAp27 As New SqlDataAdapter(strSQL27, con)
Dim Dset27 As New DataTable
DaAp27.Fill(Dset27)


Dim VF As Object
For i = 0 To Dset27.Rows.Count - 1
VF = Dset27.Rows(i).Item("FeesType")
' MessageBox.Show(VF)
Dim strSQL11 As String
strSQL11 = "SELECT * FROM (SELECT SA.Regno, SA.Sname, SA.Class, SA.Section , FT.FeeType," & _
" FT.Amount_Paid,SA.mobile1 FROM Fees_Transaction as FT INNER JOIN stdAdmission as SA ON FT.Regno=SA.Regno) FeeMaster" & _
" PIVOT (Sum(Amount_Paid) for FeeType in ( [" + VF + "] ))as PVT where Class='" & cboClass.Text & "'"
Dim DaAp11 As New SqlDataAdapter(strSQL11, con)
Dim DSet11 As New DataTable
DaAp11.Fill(DSet11)

DGV1.DataSource = DSet11
Next

Above Code I USE "PIVOT (Sum(Amount_Paid) for FeeType in ( [" + VF + "] ))as PVT

if any Other Way to Get Table Field..?