[سؤال] مشكلة في عرض رقم الصنف بعد البحث عنه الى الجريد-مرفق صورة توضيحية

PHP كود :

Module1
''---------------------------------------
Public DB As New ADODB.Connection
Public RS As New ADODB.Recordset
Public RS2 As New ADODB.Recordset
Public RA As New ADODB.Recordset
Public RSSNFMaxID As New ADODB.Recordset
Public RSSNFN As New ADODB.Recordset
Public RSADItm As New ADODB.Recordset
Public RSASNAF As New ADODB.Recordset
''---------------------------------------
Public ItemsID As String
''---------------------------------------
Form4
''---------------------------------------
Private Sub Command1_Click()
    ItemsID = Val(Trim$(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0)))
    Unload Me
End Sub
''---------------------------------------
''---------------------------------------
Form1
''---------------------------------------
Private Sub Command4_Click()
Form4.Show 1
fox.TextMatrix(fox.Row, 0) = ItemsID
End Sub
''---------------------------------------

PHP كود :

Private Sub Command1_Click()

Dim I As Integer
For I = 1 To fox.Rows - 1
    
    If Trim$(fox.TextMatrix(I, 0)) <> "" And Val(Trim$(fox.TextMatrix(I, 0))) > 0 Then
    Set RS = New ADODB.Recordset

If RS.State = adStateOpen Then RS.Close
RS.CursorLocation = adUseClient

        ms = MsgBox("هل تريد بالفعل حفظ بيانات الفاتورة", vbYesNo)
        If ms = vbYes Then

             RS.Open "select* from  BillItems ", DB, adOpenStatic, adLockPessimistic
              
              
             RS.AddNew
             RS!Id = Val(Trim$(fox.TextMatrix(I, 0)))
             RS!Name = Trim$(fox.TextMatrix(I, 1))
             RS!Qty = Val(Trim$(fox.TextMatrix(I, 3))) '3
      RS.Update
      DoEvents
      
        Set RS2 = New ADODB.Recordset
If RS2.State = adStateOpen Then RS2.Close
RS2.CursorLocation = adUseClient
  
      RS2.Open "Select * From Store Where iD=" & Val(Trim$(fox.TextMatrix(I, 0))), DB, adOpenStatic, adLockPessimistic

      If RS2.RecordCount > 0 Then
      
          RS2![noo] = RS2![noo] - Val(Trim$(fox.TextMatrix(I, 3))) '3
   
         RS2.Update
         DoEvents


    MsgBox "تمت عملية حفظ الفاتورة ", vbMsgBoxRtlReading + vbInformation, "تنبية"
Else
    
    MsgBox "لم يتم حفظ الفاتورة ", vbMsgBoxRtlReading + vbInformation, "تنبية"

Exit Sub

End If
End If
End If
Next

End Sub