Compile error method or data member not found

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String

Private Sub cmdclose_Click()
    Unload Me
End Sub
Private Sub cmdsave_Click()
rs.Fields("Registration_No").Value = regd_No.Text(this part says method or data member not found)
rs.Fields("Application_No").Value = form_no.Text
rs.Fields("Session").Value = Combo1.Text
rs.Fields("Admission_Date").Value = mskadmdt.Text
rs.Fields("Student_Name").Value = studentname.Text
rs.Fields("Class").Value = Combo2.Text
rs.Fields("Fathers_Name").Value = fname.Text
rs.Fields("Fathers_Mobile").Value = fmobile.Value
rs.Fields("Mothers_Name").Value = mname.Text
rs.Fields("Mothers_Mobile").Value = mmobile.Text
rs.Fields("Guardians_Name").Value = gname.Text
rs.Fields("Guardians_Mobile").Value = gmobile.Text
rs.Fields("DOB").Value = mskdob.Text
If Option1.Value = True Then
rs.Fields("Gender") = Option1.Caption
Else
rs.Fields("Gender") = Option2.Caption
End If
rs.Fields("Religion").Value = Combo3.Text
rs.Fields("Nationality") = Combo4.Caption
rs.Fields("Caste") = Combo5.Caption
rs.Fields("State").Value = Combo6.Text
rs.Fields("Permanent_Address").Value = address1.Text
rs.Fields("Present_Address").Value = address2.Text
rs.Fields("District").Value = district.Text
rs.Fields("Pincode").Value = pincode.Text
rs.Fields("Photo").Value = str
MsgBox "Data is saved successfully..!!!", vbInformation
rs.Update
End Sub

Private Sub Form_Load()
    con.Open "Provider=Microsoft.jet.OLEDB.4.0;Data source=E:\Tripura School Software - Copy\Record.mdb; Persist security info=False"
    rs.Open "select * from TM_REGISTRATION", con, adOpenDynamic, adLockPessimistic
      
End Sub
Sub display()
Textregd_No.Text = rs!Registration_No
Textform_No.Text = rs!Application_No
Combo1.Text = rs!Session
mskadmdt.Text = rs!Admission_Date
TextstudentName.Text = rs!Student_Name
Combo2.Text = rs!Class
Textfname = rs!Fathers_Name
Textfmobile = rs!Fathers_Mobile
Textmname = rs!Mothers_Name
Textmmobile = rs!Mothers_Mobile
Textgname = rs!Guardians_Name
Textgmobile = rs!Guardians_Mobile
mskdob.Text = rs!DOB
If rs!Gender = "Male" Then
Option1.Value = True
Else
Option2.Value = True
End If
Combo3.Text = rs!Religion
Combo4.Text = rs!Nationality
Combo5.Text = rs!Caste
Combo6.Text = rs!State
Textaddress1.Text = rs!Permanent_Address
Textaddress2.Text = rs!Present_Address
Textdistrict.Text = rs!district
Textpincode.Text = rs!pincode
Picture1.Picture = LoadPicture(rs!Photo)
End Sub

Private Sub searchbtn_Click()
rs.Close
rs.Open "Select * from TM_REGISTRATION where Registration_No='" + regd_No.Text + "'", con, adOpenDynamic, adLockPessimistic
If Not rs.EOF Then
display
reload
Else
MsgBox "Record Profile Not Found..!!", vbInformation
End If
End Sub

Private Sub uploadbtn_Click()
CommonDialog1.ShowOpen
CommonDialog1.Filter = "Jpeg|*.jpg"
str = CommonDialog1.FileName
Picture1.Picture = LoadPicture(str)
End Sub