با سلام خدمت دوستان کسی است راهنمایی کنه که کد زیر که با کد انتیتی فریم ورک نوشته شده دو تا select آن با کد دیتابیس و استریپروسیجر ها چگونه نوشته می شود با تشکر


Dim TagInt As Integer
TagInt = Convert.ToInt32(TN.Tag)


Dim query = From SPF In DatabaseSystemPart.View_TB_SystemPart
Where SPF.SystemPartLevel = TagInt
Select SPF
Dim users = query.ToList()


If users.Count > 0 Then
Dim get_sysPartFormId As Integer


For I As Integer = 0 To users.Count - 1
Dim M As New TreeNode()
M.Tag = users(I).systemPartID
M.Text = M.Tag & " - " & users(I).systemPartName
M.ToolTipText = "" & M.Tag
get_sysPartFormId = Convert.ToInt32(M.Tag)


Dim query1 = From UA In database.TB_UserAccess
Where UA.ID_User = Me.getUserId
Where UA.SystemPartID = get_sysPartFormId
Select UA
Dim users1 = query1.ToList()
If users1.Count > 0 Then
M.Checked = True
End If