ช่วยดูหน่อยครับ อยากซ้อนข้อมูลห้องของแต่ละ User ครับ คือว่า A เพิ่มห้องไว้ ผมไม่อยากให้ B เห็นข้อมูลที่ A เพิ่มไว้ อ่ะครับ ขอบพระคุณมากๆครับ

 Public Sub setdgRoomLoad()
        If User <> 0 Then
            Dim i As Integer = 0
            If cate = "Teacher" Then
               
                Dim f = From o In db.VW_Rooms Select o.รหัส, o.ชื่อห้อง, o.ผู้สอน
                dgRoom.Columns.Add("Teacher", "ผู้สอน")
                dgRoom.Rows.Clear()

                For Each g In f
                    dgRoom.Rows.Add()
                    dgRoom.Rows(i).Cells(0).Value = g.รหัส
                    dgRoom.Rows(i).Cells(1).Value = g.ชื่อห้อง
                    dgRoom.Rows(i).Cells(2).Value = g.ผู้สอน
                    i += 1
                Next
                'dgRoom.DataSource = f.ToList()
                If f.Count() > 0 Then
                    If dgRoom.RowCount > 0 Then
                        Room = dgRoom.Rows(0).Cells(0).Value
                        btnDeleteRoom.Enabled = True
                        btnEditRoom.Enabled = True
                    Else
                        Room = 0
                        btnDeleteRoom.Enabled = False
                        btnEditRoom.Enabled = False
                    End If
                Else
                    Room = 0
                    btnDeleteRoom.Enabled = False
                    btnEditRoom.Enabled = False
                End If
            Else

                Dim f = From o In db.VW_Rooms Where o.UserID Select o.รหัส, o.ชื่อห้อง
                'Dim userid = From o In db.VW_Users Where o.Cate = "" Select o.RoomID, o.Cate  
                dgRoom.Rows.Clear()
                For Each g In f
                    dgRoom.Rows.Add()
                    dgRoom.Rows(i).Cells(0).Value = g.รหัส
                    dgRoom.Rows(i).Cells(1).Value = g.ชื่อห้อง
                    i += 1
                Next
                'dgRoom.DataSource = f.ToList()
                If f.Count() > 0 Then
                    If dgRoom.RowCount > 0 Then
                        Room = dgRoom.Rows(0).Cells(0).Value
                        btnDeleteRoom.Enabled = True
                        btnEditRoom.Enabled = True
                    Else
                        Room = 0
                        btnDeleteRoom.Enabled = False
                        btnEditRoom.Enabled = False
                    End If
                Else
                    Room = 0
                    btnDeleteRoom.Enabled = False
                    btnEditRoom.Enabled = False
                    'End If
                End If
            End If
            End If
    End Sub