[مهموم]

السلام عليكم ورحمة الله

أخي عبده

نرجع لطريقة استخدام LinqToSql وأعتقد أنك أصبحت تعرفها الآن ولله الحمد

بعد إضافة كلاس LINQ to SQL Classes وليكن اسمه DataClasses1.dbml وأسقط عليه جدول المستخدمين وليكن اسمه Tab_Users وفيه الأعمدة User_Name وUser_Password وUser_Type
سيكون الكود كالتالي

PHP كود :

Dim context As New DataClasses1DataContext

Dim r = (
    From x In context.Tab_Users
    Where (x.User_Name = TextBox1.Text) And (x.User_Password = TextBox2.Text)
    Select x.User_Type
    ).SingleOrDefault

If IsNothing(r) Then
    MsgBox("اسم المستخدم أو كلمة المرور غير صحيحة")
Else
    MsgBox("نوع المستخدم: " & r)
End If