'*************************************** ' Clear All Binds '*************************************** Me.txtFirstName.DataBindings.Clear() Me.txtMiddleName.DataBindings.Clear() Me.txtLastName.DataBindings.Clear() Me.txtStudentID.DataBindings.Clear() Me.txtNYSIS.DataBindings.Clear() Me.dtDOB.DataBindings.Clear() Me.cboGrade.DataBindings.Clear() Me.txtNotes.DataBindings.Clear() '*************************************** ' Bind Fields For Basic Student Data '*************************************** Dim objDataView As New DataView(Me.DataSet.Tables("tblStudents")) objDataView.Sort = "ID" Dim objDataRowView As DataRowView = objDataView(objDataView.Find(Me.listStudents.SelectedItem("ID"))) Me.txtFirstName.DataBindings.Add("Text", objDataRowView, "FirstName") Me.txtMiddleName.DataBindings.Add("Text", objDataRowView, "MiddleName") Me.txtLastName.DataBindings.Add("Text", objDataRowView, "LastName") Me.txtStudentID.DataBindings.Add("Text", objDataRowView, "StudentID") Me.txtNYSIS.DataBindings.Add("Text", objDataRowView, "NYSIS") Me.dtDOB.DataBindings.Add("Text", objDataRowView, "DOB") Me.cboGrade.DataBindings.Add("SelectedValue", objDataRowView, "Grade_ID") Me.txtNotes.DataBindings.Add("Text", objDataRowView, "Comments")