[العتيق]

هذا الكود غير كامل تاكد من الاكواد 

كود :

Using dp As New OleDbDataAdapter("SELECT Sub_Customer, Tailor, Laundery FROM Sub WHERE ID = 1", conn)
           Dim ds As New DataSet()
           dp.Fill(ds)
           If ds.Tables(0).Rows.Count <> 0 Then
               subscription = ds.Tables(0).Rows(0).Item("Sub_Customer")
               Tailor = ds.Tables(0).Rows(0).Item("Tailor")
               Laundery = ds.Tables(0).Rows(0).Item("Laundery")
           End If
       End Using

لا يوجد في قاعدة البيانات جدول باسم Sub من اين ستجلب المعلومات    
عليك تجربة المثال و تعديل الجدول وانا جاهز للمساعدة

من هنا