Private Sub btnFilter_Click(sender As System.Object, e As System.EventArgs) Handles btnFilter.Click

        Dim strsql As String = ""
        If mcon.State = ConnectionState.Closed Then mcon.Open()
        If cmbFilter.Text = "Name" Then
            strsql = "select serial,name, familyname from membersvw where name like '%" & txtFilter.Text & "%' group by serial,name,familyName order by name "
        ElseIf cmbFilter.Text = "Family Name" Then
            strsql = "select serial,name, familyname from membersvw where familyname like '%" & txtFilter.Text & "%' group by serial,name,familyName order by name "
        ElseIf cmbFilter.Text = "Tag" Then
            strsql = "select serial,name, familyname,Tag from membersvw where tag like '%" & txtFilter.Text & "%' group by serial,name,familyName,tag,memberCar order by tag "
        ElseIf cmbFilter.Text = "Make" Then
            strsql = "select serial,name, familyname,Make from membersvw where make like '%" & txtFilter.Text & "%' group by serial,name,familyName,make,memberCar order by make "
        ElseIf cmbFilter.Text = "Model" Then
            strsql = "select serial,name, familyname,Model from membersvw where model like '%" & txtFilter.Text & "%' group by serial,name,familyName,model,memberCar order by model "
        ElseIf cmbFilter.Text = "Color" Then
            strsql = "select serial,name, familyname,Color from membersvw where color like '%" & txtFilter.Text & "%' group by serial,name,familyName,color,memberCar order by color "
        ElseIf cmbFilter.Text = "Plate" Then
            strsql = "select serial,name, familyname,Plate from membersvw where plate like '%" & txtFilter.Text & "%' group by serial,name,familyName,plate,memberCar order by plate "
        Else
            btnNoFilter.PerformClick()
            Exit Sub
        End If