how to bind a chart to a database using a business object

Protected Sub btnsearch_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnsearch.Click
      Dim code As String = txtCode.Text
      Dim objs As New SearchPerBySchool
      Dim year As String = ddyear.SelectedItem.Text

      If code.Length <> 9 Or code = "" Or code.Substring(0, 3) <> "500" Then
          MsgBox("Please enter a valid EmisCode")
      ElseIf objs.Search_School_performance(code, year).Rows.Count > 0 Then
          'Response.Redirect("ViewSchoolPer.aspx?EmisCode=" & txtCode.Text & "&ddyear=" & ddyear.SelectedItem.Text)
          Chart1.DataSource = objs.Search_School_performance(code, year)
          'Chart1.Series("grade").XValueMember = "grade"
          'Chart1.Series("TotalPass").YValueMembers = "TotalPass"
          Chart1.DataBind()
      End If
      'Response.Redirect("ViewSchoolPer.aspx")

  End Sub