Why don't you place the code in a Boolean function, then trap it like followed: private function connect_to_db(Connection as string) as boolean on error goto failed_open set DBTemp = OpenDataBase("",true,false,Connection )'Public connect_to_db = true exit function failed_open: if err.number = 28000 then msgbox "Wrong Password Or User name, please try again" connect_to_db=false exit function end function Hoped to have helped you : :-O Rayman