Public Sub GetCustomers()
        db.RunProcedure("usp_customers_get_all")
        db.doSort(radList.SelectedValue)
        gvCustomers.DataSource = db.MyView
    END Sub

Protected Sub radList_SelectedIndexChanged(ByVal sender AS Object, ByVal e AS System.EventArgs) Handles radList.SelectedIndexChanged
        IF radList.SelectedValue = 0 THEN
            db.doSort(0)
            gvCustomers.DataSource = db.MyView
        END IF
        IF radList.SelectedValue = 1 THEN
            db.doSort(1)
            gvCustomers.DataSource = db.MyView
        END IF
    END Sub

 Public Sub doSort(ByVal strIn AS INTEGER)
        IF strIn = 0 THEN
            MyView.Sort ="lastname, firstname"
        ELSE
            MyView.Sort ="username"
        END IF
    END Sub
    Public Sub RunProcedure(ByVal strName AS String)
        Dim objConnection AS NEW SqlConnection(mstrConnection)
        Dim mdbDataAdapter AS NEW SqlDataAdapter(strName, objConnection)
        Try
            mdbDataAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
            Me.mDataset.Clear()
            mdbDataAdapter.Fill(mDataset,"tblCustomers")
            MyView.Table = mDataset.Tables("tblCustomers")
        Catch ex AS Exception
            Throw NEW Exception("stored procedure is" & strName.ToString &" error is" & ex.Message)
        END Try
    END Sub