Imports System.Data.OleDb
Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database\Animals.mdb")
Dim Com As OleDb.OleDbCommand Dim Cn As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="D:\Jobs\DataBase.mdb") Try Cn.Open() Com = New OleDb.OleDbCommand("ALTER TABLE テーブル名 ADD PRIMARY KEY(項目名)", Cn) Com.ExecuteNonQuery() Cn.Close() Catch ex As Exception MessageBox.Show(ex.Message) End Try