[ميدو الفنان]

وعليكم السلام ورحمة الله وبركاته
الافضل لك وانا استعمله شخصيا هو firebase قم بتسجيل الدخول الى firebase من اللينك ده
https://console.firebase.google.com/u/0
وقم بانشاء مشروع جديد وسميه اي اسم تحبه وبعدين عند انشائه قم بالدخول الى الواجهة
ستجد في قائمة Build في الشمال هتلاقى Realtime Database هتدوس عليها وتنشئ قاعدة
وبعدين هتلاقي الرابط موجود كدة مثلا
https://vb4arb-35ea7-default-rtdb.firebaseio.com/
هتعمل بيانات زي اللى في الصورة كدة بس سميها زي ما تحب

بعد انشاء القاعدة هتخش علي القايمة الجانبية تانى عند Project Overview هتلاقي علامة جنبها
ايقونة اعدادات هتضغط عليها وبعدين تختار Project Settings وبعدين Service accounts 
وبعدين تختار Database Secrets هتلاقي المفتاح الخاص بيك تمام كدة بقي معاك الرابط والمفتاح
ده شكل الرابط مع تغير طبعا البيانات لي بياناتك اكيد
https://vb4arb-35ea7-default-rtdb.fireba...GPQpqZ5mUC
هشرحلك الكود
الرابط : https://vb4arb-35ea7-default-rtdb.firebaseio.com
اسم القاعدة بتاعتك : vb4arb وطبعا في الكود هي  json لان دي بتتعامل عن طريق json 
وده طبعا : ?auth= ده المصادقة اللى هتحط بعدها الكود الخاص بيك
وده طبعا الكود بتاعك : jdKw5qxlOqu0IAwQIkGhrBmMzwP5thGPQpqZ5mUC
كدة كله تمام الكود اهو بقي اللى هضيفه في مشروعك

كود :

Imports System.Net.Http
Imports System.Text
Imports System.Threading.Tasks

Public Class Form1

   Private Async Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click

       Dim url As String = "https://vb4arb-35ea7-default-rtdb.firebaseio.com/vb4arb.json?auth=jdKw5qxlOqu0IAwQIkGhrBmMzwP5thGPQpqZ5mUC"

       Dim newCodeValue As String = txtCode.Text
       Dim jsonData As String = "{""code"":""" & newCodeValue & """}"
       Dim client As New HttpClient()
       client.DefaultRequestHeaders.Accept.Clear()
       client.DefaultRequestHeaders.Accept.Add(New System.Net.Http.Headers.MediaTypeWithQualityHeaderValue("application/json"))
       Dim request As New HttpRequestMessage(New HttpMethod("PATCH"), url) With {
           .Content = New StringContent(jsonData, Encoding.UTF8, "application/json")
       }

       Try
           Dim response As HttpResponseMessage = Await client.SendAsync(request)
           response.EnsureSuccessStatusCode()

           Dim responseString As String = Await response.Content.ReadAsStringAsync()
           MessageBox.Show("تم التحديث بنجاح: " & responseString)
       Catch ex As Exception
           MessageBox.Show("خطأ في التحديث: " & ex.Message)
       End Try
   End Sub

End Class