在datagrid中使用表间关系（连接ACCESS）

Imports System
Imports System.Data
Imports System.Drawing
Imports System.Data.OleDb

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim starpath As String = Application.StartupPath & "/renshi.mdb"
    Dim connstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;"
    Dim connectstr As String = connstr & "Data Source=" & starpath
    Dim mycon As New OleDbConnection(connectstr)       
    Dim mydt As New OleDbDataAdapter("select * from 部门", mycon)
    Dim myset As New DataSet()   '声明实例化数据集myset
  

Sub rela()
        Dim pc As DataColumn
        Dim cc As DataColumn
        pc = myset.Tables("部门暂").Columns("部门编号")
        cc = myset.Tables("全体员工").Columns("所属部门")
        Dim rel As New DataRelation("查看本部门人员", pc, cc)
        myset.Relations.Add(rel)
    E