[عاشق الرسول]

تظهر لي رسالة اثناء عملية الحفظ ولا أفهم معناها
مع العلم ان الكود يعمل معي في شاشات أخرى
مرفق صورة للرسالة

كود :

       If Not check() Then
           Exit Sub
       End If
       CreateConn()
       Dim SQLString As String = "SELECT * FROM RENT_TBL WHERE LEASE_NO='" & Me.TXT_CON_NO.Text & "' "
       Dim objCommand As OleDbCommand = New OleDbCommand(SQLString, getConn())
       OpenConn()
       Dim objDataReader As OleDbDataReader
       Try
           objDataReader = objCommand.ExecuteReader()
           If objDataReader.HasRows Then
               has_row = 1
           Else
               has_row = 2
           End If
           objDataReader.Close()
       Catch OleDbExceptionErr As OleDbException
           MessageBox.Show(OleDbExceptionErr.Message, "eeee Access SQL")
       End Try
       objCommand.Dispose()
       objCommand = Nothing
       objDataReader = Nothing
       CloseConn()
       If has_row = 2 Then
           If MsgBox(" هل تريد حفظ السجل الحالي ؟ ", MsgBoxStyle.OkCancel, "تأكيد الحفظ") = MsgBoxResult.Cancel Then
               Exit Sub
           End If
           Dim rs1 As String
           Try
               rs1 = "INSERT INTO RENT_TBL (BULD_NO,BULD_NAM,FLAT_NO,FLAT_NAM,RENTER_NAM,CIV_ID,RENT_VAL,BEFO_PAY,RENT_ST,RENT_FIN,LEASE_NO,RENT_NOT) VALUES (@BULD_NO,@BULD_NAM,@FLAT_NO,@FLAT_NAM,@RENTER_NAM,@CIV_ID,@RENT_VAL,@BEFO_PAY,@RENT_ST,@RENT_FIN,@LEASE_NO,@RENT_NOT)"
               Dim cmdrent As New OleDb.OleDbCommand(rs1, con)
               cmdrent.Parameters.AddWithValue("BULD_NO", CMB_BULD.SelectedValue.ToString)
               cmdrent.Parameters.AddWithValue("BULD_NAM", CMB_BULD.SelectedText)
               cmdrent.Parameters.AddWithValue("FLAT_NO", cmp_flat.SelectedValue.ToString)
               cmdrent.Parameters.AddWithValue("FLAT_NAM", cmp_flat.SelectedText)
               cmdrent.Parameters.AddWithValue("RENTER_NAM", txt_renter.Text)
               cmdrent.Parameters.AddWithValue("CIV_ID", txt_civ.Text)
               cmdrent.Parameters.AddWithValue("RENT_VAL", txt_val.Text)
               cmdrent.Parameters.AddWithValue("BEFO_PAY", txt_pay.Text)
               cmdrent.Parameters.AddWithValue("RENT_ST", ST_DAT.Text)
               cmdrent.Parameters.AddWithValue("RENT_FIN", END_DAT.Text)
               cmdrent.Parameters.AddWithValue("LEASE_NO", TXT_CON_NO.Text)
               cmdrent.Parameters.AddWithValue("RENT_NOT", TXT_NOTE.Text)
               con.Open()
               cmdrent.ExecuteNonQuery()
               con.Close()

               MessageBox.Show("Saved Successfully....")
           Catch ex As Exception
           MsgBox(ex.Message)
       End Try
           ts.Text = "تمت الإضافة بنجاح"
           fill_ds()
           NavigateRecords()
           MyCurrencyManager.Position = MyCurrencyManager.Count - 1
           record_count()
           btn_enable(True)

وهذا الكود للتعديل أو  الإيضاح