[VB.NET]

السلام عليكم 
عندي جهازين جهاز سيرفر وجهاز الكاشير 
جهاز السيرفر يوجد فيه البرنامج الخاص بأدخال الأصناف 
الجهاز الثاني الكاشير خاص بأدخال المبيعات 
طبعا البرنامجين فيجوال بيسك 6 
وفمت الان بتحويلها الى VB.NET 2013 لاكن المشكلة كان عندي كود يقوم بسحب الاصناف من الجهاز الرئيسي الى الكاشير والكود كالتالي :

جملة الاتصال :
If rsb.State = adStateOpen Then rsb.Close
rsb.Open "provider = Microsoft.ACE.OLEDB.12.0; data source = " & Path & "\\192.168.100.100\data\data.accdb;Jet OLEDBatabase Password=*****;"
End Sub

والكود الخاص سحب البيانات كالتالي :

If mosh.State = adStateOpen Then mosh.Close

mosh.Open "Insert Into item1 In'" & App.Path & "\data.accdb" & "'" & " Select * From item1 where SKU Not IN (Select SKU From item1 IN'" & App.Path & "\data.accdb" & "')", rsb, adOpenDynamic, adLockOptimistic

واحتاج تحول الكود الى VB.NET 2013 كيف اعمل كود بنفس الطريقة هذي .

جملة الاتصال في ال VB.NET كالتالي :
    Public con As New SqlClient.SqlConnection("data source=.;Initial catalog=RB_POS; User ID=PC1; Password=PC11984; ")

باقي عندي الكود الي يقوم بسحب البيانات من الرئيسي الى الكاشير 
""


نرجو الافادة في طريقة الكود

[VB.NET]

ارجو المساعدة

[VB.NET]

ارجو المساعدة ؟؟؟؟؟

[HASAN6.0]

ارفق مشروع مبسط ليتم اكمال العمل عليه