Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database\Animals.mdb") Dim SQLCm As OleDbCommand = Cn.CreateCommand SQLCm.CommandText = "UPDATE T_目マスタ SET 説明= 'コウモリ, オオコウモリ' WHERE 目ID = 2" Cn.Open() SQLCm.ExecuteNonQuery() Cn.Close() MsgBox("変更しました。")