[مهموم]

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

أخي عادل

أضع هذه الطريقة للفائدة، واحتمال أن تكون غير مرغوبة

LinqToSql

PHP كود :

Dim context As New DataClasses1DataContext
Dim ret = context.Tab_Users.Where(Function(x) x.User_Name = Txt_User_Name.Text).SingleOrDefault

If IsNothing(ret) Then
    MsgBox("not Found Name")
Else
    MsgBox(ret.User_City)
End If 


LinqToDataset

PHP كود :

Dim ret = Tab_UsersTableAdapter.GetData().Where(Function(x) x.User_Name = Txt_User_Name.Text).SingleOrDefault
If IsNothing(ret) Then
    MsgBox("not Found Name")
Else
        MsgBox(ret.User_City)
End If