طلب كود او ادة لربط جهازين عبر الانترنت

السلام عليكم

أخواني اعضاء المنتدى انا بصدد عمل برنامج لمبيعات شركة اتصالات وتواجهني مشكله هي كيفية الربط بين جهازين عن طريق الانترنت بمعنى اذا كان لدينا مندوب مبيعات في مدينه ومركز الشركه في مدينه اخرى وقام بعمل بعض التحديثات في

اسعار السلع فكيف ستصل اسعار السلع الجديدة الي المندوب

لقد استخدمت الادة winsock لربط الاجهزة في مركز الشركة و لكن كيف استطيع ربط المندوبين مع المركز مع العلم انهم ليسوا متواجدين في نفس المدينة هل من الممكن ربطها بدون شراء سيرفر

لقد فكرت ان اضع قاعدة البيانات في سيرفر انترنت مجاني و استخدم هذا الكود

private declare function shellexecute lib "shell32.dll" _
alias "shellexecutea" (byval hwnd as long, _
byval lpoperation as string, byval lpfile as string, _
byval lpparameters as string, byval lpdirectory as string, _
byval nshowcmd as long) as long

public function callwebsite(byval url as string) as long
   callwebsite = shellexecute(0&, vbnullstring, url, _
      vbnullstring, vbnullstring, vbmaximizedfocus)
end function

عمل فحص للنظر فى وجود تحديث او لا check = inet1.openurl("www.name host.com/update.txt")
if check = "2011" thenشرط عمل تحديث اذا وجد الرقم 2011 فيقوم البرنامح بعمل تحديث واظهار الرساله الاتيه
msgbox "new update ready press ok to update please", vbquestion
if vbquestion then
callwebsite "http://www.name host.com/newprogram.exe" الاتصال بالموقع لتحميل الاصدار الجديد
unload me

هذا الكود لعمل ابديت للبرنامج

سابدل الكود ليحمل قاعدة البيانات بدل ملف exe

و لكن كيف استطيع رفع قاعدة البيانات من الكمبيوتر الي الانترنت

و هل هذا الكود صحيح من الاصل

و شكرا