Set OraDynB01 = OraDatabase.DbCreateDynaset(Sql, ORADYN_DEFAULT) If OraDynB01.EOF= True Then Cmd_Update.Enabled = False End Ifならいかがでしょうか?