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