[1nj]

مش واضح!

لكن يمكن تقصد بالمتغير

كود :

For Each item In query
   Dim k = item.Key
   Dim v = item.Value
   MsgBox(k & " = " & v)
Next

---

اصلا query بيعطيك Dictionary وكل سطر فيه له Key و Value
و ال loop بيمر عليهم كلهم