Greetings can someone give me tips on how to solve this? When i'm searching for a data on the datagrid to edit it doesn't display the data to the corresponding text boxes. The textboxes is bound on the datafields I have these fields
Combobox - Searchbox
textfields
Student ID
Student Section
student name
etc
datagrid
buttons
Edit
Add
Search
Delete
Cancel
Save
this is the search code
btnName = "Search"
'=============================[THIS CODE UPDATES THE SELECTED DATA]========================='
Dim conn As New ADODB.Connection
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=GradingSystem.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
conn.Open strConn
rs.Open "SELECT * FROM student_tbl where student_section = '" & cmbBoxSection.Text & "'", conn, adOpenDynamic, adUseClient
Set DataGrid1.DataSource = rs
DataGrid1.AllowAddNew = False
DataGrid1.AllowArrows = True
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = True
'============[REBIND THE DATAFIELDS]============'
txtStudentId.DataField = "student_Id"
txtStudentFirstName.DataField = "student_firstName"
txtStudentLastName.DataField = "student_lastName"
txtStudentMi.DataField = "student_middleInitial"
txtStudentSection.DataField = "student_section"
txtQuiz1.DataField = "student_MidTermquiz1"
txtQuiz2.DataField = "student_MidTermquiz2"
txtQuiz3.DataField = "student_MidTermquiz3"
txtQuiz4.DataField = "student_FinalTermquiz1"
txtQuiz5.DataField = "student_FinalTermquiz2"
txtQuiz6.DataField = "student_FinalTermquiz3"
txtProject1.DataField = "student_MidTermproject"
txtProject2.DataField = "student_FinalTermProject"
txtAttendance1.DataField = "student_MidTermattendance"
txtAttendance2.DataField = "student_FinalTermAttendance"
txtParticipation1.DataField = "student_MidTermclassParticipation"
txtParticipation2.DataField = "student_FinalTermClassParticipation"
txtExam1.DataField = "student_MidTermexam"
txtExam2.DataField = "student_FinalTermexam"
txtMidTerm.DataField = "student_midTerm"
txtFinalTerm.DataField = "student_finalTerm"
txtAverage.DataField = "student_average"
txtRemarks.DataField = "student_remarks"
'============[DISABLES AND ENABLES THE BUTTONS AFTER SEARCHING]============'
cmdAdd.Enabled = False
cmdCancel.Enabled = True
cmdSave.Enabled = False
cmdSearch.Enabled = True