ช่วยดูหน่อยครับว่าไม่รู้เกิดขึ้นตรงไหนนะครับ ใช้ VB.NET เขียน นะครับ

Private Sub Command1_Click()
Dim rentid  As Integer
DataEnvironment1.rsrentdetail.MoveLast
rentid = Right("000000" & DataEnvironment1.rsrentdetail.Fields("rent_id") + 1, 6)
DataEnvironment1.rsrentdetail.AddNew
txtrent_id.Text = rentid
DataEnvironment1.rsrentdetail.Update
DataEnvironment1.rsrentdetail.Fields("ID") = txtID.Text
DataEnvironment1.rsrentdetail.Fields("cus_no") = Text3.Text
DataEnvironment1.rsrentdetail.Fields("namecus") = txtnamecus.Text
DataEnvironment1.rsrentdetail.Fields("data_id") = txtdata_id.Text
DataEnvironment1.rsrentdetail.Fields("namebook") = txtnamebook.Text
DataEnvironment1.rsrentdetail.Fields("Rent_date") = txtrentdata.Text
DataEnvironment1.rsrentdetail.Fields("Return") = txtreturndate.Text
DataEnvironment1.rsrentdetail.Fields("PriceRent") = txtPriceRent.Text

If MsgBox("คุณต้องการเช่าหนังสือการ์ตูนเรื่องนี้ใช่หรือไม่", vbYesNo + vbQuestion, "ยืนยันการเพิ่ม") = vbYes Then

DataEnvironment1.rsrent.AddNew
DataEnvironment1.rsrent.Fields("ID") = txtID.Text
DataEnvironment1.rsrent.Fields("cus_no") = Text3.Text
DataEnvironment1.rsrent.Fields("data_id") = txtdata_id.Text
DataEnvironment1.rsrent.Fields("Rent_date") = txtrentdata.Text
DataEnvironment1.rsrent.Fields("Return") = txtreturndate.Text
DataEnvironment1.rsrent.Fields("PriceRent") = txtPriceRent.Text
End If
Dim a  As Integer
a = txtPriceRent.Text
txttotal.Text = a + txttotal.Text
'txtbook_id.Text = ""
End Sub