สอบถามแนวทาง/วิธี แสดงข้อมูลในตารางในตารางข้อมูลอีกทีครับ

Dim name As String = TextBoxSearch.Text.Trim()

Sql = (Convert.ToString("SELECT DISTINCT TbEmployee.EmployeeName FROM TbUser INNER JOIN TbEmployee " & vbCr & vbLf & "                    ON TbUser.EmployeeID = TbEmployee.EmployeeID WHERE (TbEmployee.EmployeeName ='") & name) + "')"


DataAdapter = New SqlDataAdapter(Sql, Connection)
Dataset = New DataSet()
DataAdapter.Fill(Dataset, "Employee")

Sql2 = "SELECT TbUser.UserID,TbUser.Username,TbUser.Password,TbUser.UserAuthen,TbUser.EmployeeID,TbEmployee.EmployeeName" & vbCr & vbLf & "                    FROM TbUser INNER JOIN" & vbCr & vbLf & "                    TbEmployee ON " & vbCr & vbLf & "                    TbUser.EmployeeID = TbEmployee.EmployeeID"

DataAdapter.SelectCommand.CommandText = Sql2
DataAdapter.Fill(Dataset, "EmployeeDetail")

Dim dcMaster As DataColumn, dcDetail As DataColumn
dcMaster = Dataset.Tables("Employee").Columns("EmployeeName")
dcDetail = Dataset.Tables("EmployeeDetail").Columns("EmployeeName")

Dim dl As New DataRelation("Employee_Detail", dcMaster, dcDetail)

Try
	Dataset.Relations.Add(dl)

Catch
End Try
Dim dvm As New DataViewManager()
dvm.DataSet = Dataset

Dim dvs As DataViewSetting
dvs = dvm.DataViewSettings("Employee")
dvs.Sort = "EmployeeID"

dvs = dvm.DataViewSettings("EmployeeDetail")
dvs.Sort = "EmployeeName"

dataGridView1.[ReadOnly] = True
dataGridView1.DataSource = dvm
dataGridView1.DataMember = "Employee"

dataGridView2.[ReadOnly] = True
dataGridView2.DataSource = dvm
dataGridView2.DataMember = "Employee.Employee_Detail"