Can someone help me with the code for my filter menus?? I need to sort my database by the ssclass names upon the menu selection. Here is my code..

Public Class Frmmember Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'Member_DatabaseDataSet.Members' table. You can move, or remove it, as needed. Me.MembersTableAdapter.Fill(Me.Member_DatabaseDataSet.Members) 'TODO: This line of code loads data into the 'Member_DatabaseDataSet.Donations' table. You can move, or remove it, as needed. Me.DonationsTableAdapter.Fill(Me.Member_DatabaseDataSet.Donations) Dim query = From member In Member_DatabaseDataSet.Members Select member.FullName LSTDISPLAY.DataSource = query.ToList() End Sub Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles txtcount.TextChanged End Sub Private Sub BindingSource1_CurrentChanged(sender As Object, e As EventArgs) Handles BindingSource1.CurrentChanged End Sub Private Sub EXITToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EXITToolStripMenuItem.Click 'close form Me.Close() End Sub Private Sub CLEARToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CLEARToolStripMenuItem.Click 'clear text boxes, etc LSTDISPLAY.DataSource = Nothing LSTDISPLAY.Text = Nothing End Sub Private Sub LSTDISPLAY_SelectedIndexChanged(sender As Object, e As EventArgs) Handles LSTDISPLAY.SelectedIndexChanged Dim customername As String = LSTDISPLAY.SelectedItem Dim query = From member In Member_DatabaseDataSet.Members Where member.FullName = customername Select member.FullName, member.Age, member.Address, member.SSClass Txtaddress.Text = query.First.Address txtage.Text = query.First.Age txtclass.Text = query.First.SSClass ' LSTDISPLAY.DataSource = query.ToList() Dim dgquery = From member In Member_DatabaseDataSet.Members Where member.FullName = customername Join Donations In Member_DatabaseDataSet.Donations On member.ID Equals Donations.ID Let amount = Donations.amount Let donationdate = Donations.DonationDate Select amount, donationdate dgvshow.DataSource = dgquery.ToList() End Sub Private Sub DgvdiSPLAY_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvshow.CellContentClick End Sub Private Sub BARNESToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BARNESToolStripMenuItem.Click End Sub End Class