(" Public sqlcon As New SqlConnection(" data source =srver,1433; initial catalog=dbas;uid=user;pwd=pass")

    Dim ds As New DataSet

    Dim da As New SqlClient.SqlDataAdapter("Select * from students order by id", sqlcon)

    Dim cmd As SqlCommand

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

والملف التنفيذي للشاشات و عملت جديد .... والمفاجاه لا جدوي ونفس الشيء يعمل المشروع جيدا علي الخمس شاشات وفجاه يبطيء التحميل

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

وعموما ساجرب خاصية copy if newer لعلها قشة انقاذ السفينه