column 'pkJudge' does not belong to table Table

Question

Private Sub S_GetJudges(ByVal courtID As Integer) ' Load the list of judges Dim DAl As New DataAccessLayer Dim JudgeSet As New DataSet Dim pfkCourt As Integer = CourtDDL.SelectedValue If ClientKey > 0 And pfkCourt > 0 Then JudgeSet = DAl.GetJudgespkJudgesJudgeNamefkCourt(ClientKey, pfkCourt) JudgeDataTable = JudgeSet.Tables(0) Dim dr As System.Data.DataRow dr = JudgeDataTable.NewRow() dr("pkJudge") = "0" dr("Judge Name") = "(Select a Judge)" JudgeDataTable.Rows.Add(dr) Dim dv As System.Data.DataView JudgeDDL.SelectedValue = 0 JudgeDDL.DataSource = JudgeDataTable.DefaultView dv = JudgeDataTable.DefaultView dv.Sort = "pkJudge ASC" JudgeDDL.DataBind() End If End Sub