[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم هل انت متأكد من انك تعمل بتقنية LinQ  ؟
اذا كان كذلك اليك هذا الفنكشن لمقارنة اسم المستحدم وكلمة المرور مع مثيلاتها في جدول ال User
ملحوظة : غير التسميات لتتوافق مع التي اسميتها في مشروعك
  

كود :

' انشئ هذا الفنكشن
   Function ValidateLogin(ByVal username As String, ByVal password As String) As Boolean
       Dim DBcontext As New DBDataContext()
       Dim usr = DBcontext.Users.SingleOrDefault(Function(u) u.UName = username AndAlso u.UPassword = password)
       Return (usr IsNot Nothing)
   End Function

   ' في بوتون الدخول
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If Txt_Uname.Text.Trim <> "" Or Txt_Upassword.Text.Trim <> "" Then
           ' اذا كانت القيمة العائدة من الفنكشن  ترو
           If ValidateLogin(Txt_Uname.Text, Txt_Upassword.Text) = True Then
               Dim frm As New Form1()
               Me.Hide()
               frm.Show()
           Else
               MessageBox.Show("اسم المستخدم او كلمة المرور خاطئة")
               Exit Sub
           End If
       Else
           MessageBox.Show("الرجاء ادخال اسم المستخدم و كلمة المرور ")
       End If

   End Sub

وان كنت تستخدم تقنية Ado.net فعليك تغيير الكود ويفضل وضع  مشروعك (فورم الدخول بشكل مختصر ) ليتم التعديل اومساعدتك من قبل اخوتك في المنتدى